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IDENTIF ICATION 
PRODUCT CODE: AC~E 188B-MC 
PRODUCT NAME : CVDLABO DLV11-J TEST 
PRODUCT DATE: NOV 1978 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1978, 1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
DLV11=J SERIAL INTERFACE. 
TESTING IS DONE IN TWO DISTINCT PHASES: 


1. ALL SELECTED CHANNELS PER DLV11-J MODULE ARE TESTED INDIVIDUALLY 


2. THE DLV11-J MODULE IS TESTED AS A WHOLE FOR CHANNEL INTERACTION 
PROBLEMS. THIS DIAGNOSTIC IS DESIGNED TO TEST AND DETECT 
ERRORS TO THE LOGIC LEVEL (NOT TO THE CHIP LEVEL). 


THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES 
CONFIGURED AT CONSECUTIVE BASE ADDRESSES. 

THE PROGRAM WILL DO AUTO-SIZING IF THE DEVICE MAP ‘SDEVM' = 0. 
ALTERNATELY, THE OPERATOR CAN SELECT OR DESELECT INDIVIDUAL MODULES 


@ CHANNELS BY SETTING THE PROPER BITS IN 'SDEVM' (SEE PROGRAM OPTIONS SEC. 2.4) 


BEFORE RUNNING THE PROGRAM. 
BY THIS METHOD, THE PROGRAM WILL BYPASS AUTO-SIZING AND TEST ONLY 
THOSE MODULES/CHANNELS IT FINDS IN $DEVM. 


IN EITHER CASE, THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS 
TO BE TESTED BEFORE PROCEEDING. 


THE OPERATOR MUST INSTALL DATA WRAP AROUND CONNECTORS IC DO 
DATA TESTING. TO BYPASS DATA TESTS, THE OPERATOR MUST MODIFY 
"$USWR' (USER SWITCH REGISTER) , SEE PROGRAM OPTIONS SEC. 2.4) 
THE DEFAULT ADDRESSES & VECTORS ARE AS FOLLOWS: 

177560 -CONSOLE INTERFACE DEVICE ADDRESS 


176500 -FIRST SERIAL CHANNEL ADDRESS OF UP TO 8 CONSECUTIVE 
SERIAL LINE DEVICES. 


60 - VECTOR FOR CONSOLE DEVICE INTERFACE. 
300 - VECTOR FOR FIRST OF 16 DEVICES. 


THIS PROGRAM IS DESIGNED TO RUN ON ANY Q-BUS PDP=-11 WITH 4K OF 


MEMORY AND A DLV11-J (Q-BUS) MODULE. IT CAN RUN UNDER XXDP & 


APT MONITORS, AND ON PROCESSORS WITH NO HARDWARE 
SWITCH REGISTER. 


SEQ 0003 


CVDLAAO DLVI1-)_TEST nah 30G(1063) 17-NOV-78 09:39 PAGE 5 


CVDLAB.P11 


1.2 


17-NOV~-78 


SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 


- Q-BUS PDP-11 FAMILY PROCESSOR 
K MEMORY ~- MINIMUM 

aS SPECIAL DATA WRAP AROUND CONNECTOR OR 4 latent 
(REQ'D IF DATA WRAP AROUND TESTS DESIRED) 


IF CHANNEL 3 IS CONFIGURED AS THE CONSOLE: 
TESTS 6-12, 14-17, 21, 22 ARE BYPASSED. 


IF DATA WRAP AROUND TESTS ARE BYPASSED: 
TESTS 7-12, 14-17, 21, 22 ARE BYPASSED. 


3 IS CONFIGURED AS THE CONSOLE & A VT-109 IS 


IF CHANNEL 
THE CONSOLE DEVICE, SWITCH THE VT-100 TO ‘‘JUMP SCROLL ° 
TO AVOID LOOSING CHARACTERS ON THE SCREEN. 


SOF TWARE REQUIREMENTS: 


THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF _ THE 

FOLLOWING WAYS: 
STAND ALONE 

WITH APT MONITOR 


MODE 


WITH XXDP MONITOR (CHAINABLE IF RENAMED TO .BIC EXTENSION) 


THIS DIAGNOSTIC IS NOT DESIGNED TO RUN WITH THE 
DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZMA 
SYSMAC MD-11-DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES. 

NO SPECIAL DIACNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
THE PROCESSOR, MEMORY, AND BUS ‘ARE ASSUMED TO BE FULLY 
OPERATIONAL . 


ASSUMPTIONS. 
THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZE 
LOCATION '$SUSWR* AND "SDEVM' TO THE PROPER VALUFS. (SEE SEC. 


SEQ 0004 





F 
Sy ny DLV11-J_TEST nag Ah 30G(1063) 17-NOV-78 09:39 PAGE 6 


VDLAB.P11 


2.0 


2.2 


17-NOV~-78 09 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
ens PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 


THERE ARE 2 STARTING LOCATIONS FOR THIS DIAGNOSTIC: 
1. LOCATION 200 FOR ALL NORMAL TESTING STARTS & RESTARTS. 
2. LOCATION 400 FOR INTERRUPT VECTOR DEBUG... OFFLINE ONLY. 


THE 400 START SHOULD BE USED ONLY TO DEBUG FAULTY VECTOR ADDRESSES 
PUT OUT BY THE DV11-J DURING INTERRUPTS. 

STARTING AT 400 WILL CAUSE THE ENTIRE VECTOR AREA, EXCEPT THAT 
NEEDED BY SYSMAC, TO BE OVERWRITTEN & TO POINT TO A COMMON SERVICE 
ROUTINE TO ENABLE LOOPING ON THE PROBLEM. 


AS SOON AS TESTING STARTS, THE aya CAN CHANGE THE SWITCH 
REGISTER ONLY BY A "BREAK* & MANUALLY LOADING LOCATION 176 (SWREG) 
WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A ‘P* TO PROCEED. 


IT IS IMPORTANT THAT WHEN GOING BACK TO NORMAL TESTING A FRESH 
LOAD OF THE PROGRAM BE PERFORMED TO RESET THE VECTOR AREA. 


THE USER CAN SELECT A eet ne TEST TO BE EXECUTED BY SETTING 
BIT 8 IN SWREG AND THE TEST NUMBER (IN OCTAL) IN BITS <7:0>. 
(NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS.) 


SPECIAL ENVIRONMENTS. 

THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 

OPERATIONAL SWITCH SETTINGS 

THE SOFTWARE SWITCH yi incs. (LOC. 176) IS USED FOR ALL 


OPERATIONAL SWITCH SETT 
THIS CAN BE ACCOMPLISHED IN THE FOLLOWING WAY: 


SEQ 0005 
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TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER 


DATA ‘os LOC. 176 AT SELECTED POINTS WITHIN THE 
PROGRAM 


THE MACHINE WILL THEN TYPE:' SWR=XXXXXX NEW=" (XXXXXX IS 


THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


AFTER THE ‘NEW=" HAS BEEN TYPED pg THE OPERATOR CAN DO 


A) 


B) 


C) 


NOTE : 


w 
cot 
4 


— — —3 3 ——3 3 
WOOO PWS Ul 


ONE OF THE FOLLOWING AT THE T 


TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 
DIGITS -) TYPED THE LAST 6 WILL BE USED. IF A <CR> 
IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
alk ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 


BECAUSE OF FREQUENT BUS RESETS IN ae IT MAY BE 


NECESSARY 10 DO *CONTROL~G' SEVERAL TIMES : 
ALTERNATELY, A "BREAK' & MANUALLY LOADING LOC. 176, 
FOLLOWED BY A'*p* TO PROCEED WILL ALSO WORK. 


SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


SET = 100000 = HALT OR 

SET = 40000 = LOOP ON TEST (TO BE ~ ONLY WHILE TESTING IN PROGRESS) 
SET = 20000 = INHIBIT ERROR TYPE 

SET = 10000 = E PERFORMANCE REPORTS 

SET = 4000 = INHIBIT ITERATIONS 

SET = 2000 = BELL ON ERROR 

SET = 1000 = LOOP ON ERROR 

SET = 400 = LOOP ON TEST IN SWR<7:0> 

QO = NUMBER OF TEST TO LOOP ON (USED WITH BIT 8) 


(ALL TESTS PREVIOJUS TO THE SELECTED TEST 
ARE EXECUTED FIRST WITH 7 ITERATION ONLY? 


SEQ 0006 
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PROGRAM OPTIONS. 


THIS PROGRAM REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT ‘$BASE') AND 
ITS INTERRUPT VECTOR (STORED AT “S$VECTi"). IT WILL ABLE 
TO ADDRESS ANY DLV11-J STARTING AT THE SPECIFIED BASE ADDRESS 
THRU ‘. ‘cet MODULES. 
EXAMPLE $BASE: 176500 (DEFAULT) 
$VECT1: 300 (DEFAULT) 


LOCATION ‘SDEVM' IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED. 


SDEVM (BITS 15 THRU 8 NOT USED) 
!<---MODULE 2------- t—====-MODULE 1-----~! 
~— - 22. Seo 10 4 8 7 6 5 4 3 2 1 0 BIT 
' ' J ' i ' i eee et oe eee Te ee | 


* neneneceneesesaneneresonecswesseneenenneecennaneenseeseneeneceeneneeaneeeeenncece 


A BIT MAP CAN BE ENTERED AT ‘SDEVM' PRIOR TO STARTING THE PROGRAM. 

iF '$DEVM’ IS LEFT AT ITS DEFAULT VALUE (0), THE PROGRAM WILL DO AUTO-SIZING 
BEGINNING AT THE ma 3g tS ADDRESS " "$BASE' & WILL SETUP “SDEVM® ACCORDINGLY. 
IN EITHER CASE, THE PROGRAM WILL TYPE OUT A LIST OF ALL THE 

MODULES/CHANNELS TO BE TESTED BEF ORE PROCEEDING. 


NOTE: SIZING IS PERFORMED ONLY ont AT THE BEGINNING OF THE PROGRAM. 
IF $DEVM IS TO BE CHANGED, THE PROGRAM MUST BE RESTARTED AT 200 
FOR IT TO BE EFFECTIVE. OTHERWISE, SDEVM WILL BE IGNORED. 


OPTIONS 


LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE VALUES 
IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD CONFIGURATION. 


SUSWR 
BIT POSITION DEFINITION DEFAULT VALUE 
0 # OF DATA BITS. TRANSMITTED 1 = 8 BITS 
= 7 BITS, 1 = 8 BITS 
PARITY ENABLED 0  =NO 
2 EVEN ODD PARITY 0 = ODD 
3 BREAK DETECTION ENABLED 1 = YES 
i RUN DATA WRAP AROUND TESTS 1 = YES 
<11:9> CONSOLE DEVICE 1 = YES = CONSOLE ON MODULE 1, CHAN. 3 
<11:9> = 0 = CONSOLE NOT ON DLV11-J 
<11:9> = 1 = CONSOLE ON MODULE 1 
<11:9> = 2 = CONSOLE ON MODULE 2 


SEQ 0007 
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IMPORTANT : 
1, FOR DIAGNOSTIC PURPOSES, a CHANNELS MUST BE CONFIGURED 


r 


De 


TO THE SAME BIT/WORD LENGTH 


THE ‘SIZING’ ROUTINE WILL SET THE —— CHAN 3 BIT 
IN SDEVM IF BITS <11:9> ARE SET IN SUSWR 


IF RUNNING UNDER APT & A.¥ CONSOLE IS ON THE DLV11-J, THE 


CONSOLE MUST NOT BE TEST 
THIS IS BECAUSE APT SENDS "BREAKS' TO THE CONSOLE WHICH 


INTEREFERES WITH THE TESTS. 


FOR THIS CASE: 


A. ALLOW THE SDEVM TO STAY EITHER AT ITS DEFAULT OF 0 
OR CLEAR THE APPROPRIATE CHAN. 3 BIT. 


B. CLEAR BITS <11:9> IN $USWR SO THE CONSOLE BIT WILL NOT 
BE SET INTO $DEVM FOR TESTING. 


SEQ 0008 
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SUMMARY OF DEVICE ADDRESSES & VECTORS. | 
VECTORS 


DEY ADBRESS i ### # #. ssaecs= 
(RCSR) REC XMIT 

MODULE #1 CHANNEL 0 $BASE +00 $VECT1+00 SVECT1+4 

1 +10 +10 +14 

2 +20 +20 +24 

3 +30 +30 +34 
MODULE #2 CHANNEL 0 +40 +40 +44 

1 +50 +50 +54 

2 +60 +60 +64 

3 +70 +70 +74 
CONSOLE DEVICE 5 $TKS TKVEC=60 TPVEC=64 
SUMMARY OF USER LOCATIONS & DEFAULTS. 

LOC DEFAULT 
SE 1250 176500 

$VECT1 1244 30 
$TKS 1144 177560 FOR CONSOLE DEVICE ON MODULE UNDER TEST 
TKVEC 60 FOR CONSOLE DEVICE ON MODULE UNDER TEST 
TPVEC 64 FOR CONSOLE DEVICE ON MODULE UNDER TEST 
SUSWR 1220 1031 SEE SEC. 2.4 
SDEVM 1252 0 SEE SEC. 2.4 
SWREG 176 0 SEE SEC. 2.3 


2.5 EXECUTION TIMES. 
EXECUTION TIMES FOR AN LSI=11 PROCESSOR WITH ONE DLV11-J MODULE AT SHIPMENT CONFIGURATION: 


CH. 0.1.2 AT 9600 BAUD. 
CH. 3 (CONSOLE) AT 300 BAUD. 


ARE: FIRST PASS=- 30 SEC 
ADDITICNAL PASSES 90 SEC 


THE TEST TIME IS BAUD RATE DEPENDENT; HIGHER BAUD RATES RESULT IN 
SHORTER PASS TIMES. 


2.6 POWER FAIL. 
AUTO START FROM POWER FAIL IS NOT IMPLEMENTED IN THIS PROGRAM, 
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ERROR INFORMATION. 


ERROR REPORTING PROCEDURE . 


SINCE THIS DIAGNOSTIC WAS DESIGNE. ™O FIT IN 4K OF MEMORY THE 
ie ha Rig IS VERY BRIEF. THE . ORMAT OF THE ERROR TYPEOUT 


TEST#_____.ERRORM 
WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15.13.10 AND 9 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 








,PC=_____ ,ADDRESS=______. VEC TOR=_____ 


BIT 15 SET: pg? THE PROGRAM TO HALT IN THE ERROR ROUTINE. 


F THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 


BIT 9 SET: CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.5 FOR DETAILS. 


ERROR HAL TS. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 


SEQ 0010 
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PERFORMANCE AND PROGRESS REPORTS. 





PERFORMANCE REPORTS. 
AS EACH CHANNEL (4 CHANNELS/DLV11~-J) eo ee 





THE DIAGNOSTIC THE FOLLOWING ITEMS ARE TYP 


"CSR: Ps 
‘VECTOR: __' 
"ERRORS: __* 


AFTER ALL MODULES & CHANNELS TO BE TESTED HAVE BEEN EXERCISED, 


= 
17-NOV-78 09:39 PAGE 12 


(BIT 12 SET IN THE SWITCH REGISTER ‘SWREG*) 


ONE PASS OF 


THE BASE ADDRESS OF THE LINE UNDER TEST 


: THE ASSOCIATED VEC 


ON THIS PASS. 


AN END PASS STATEMENT IS TYPED: 
"END PASS4 . 


EXAMPLE OF PRINTOUT ASSUMING: 


CTOR 
: THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 


a DLV11-J MODULES 


L CHANNELS ENABLED 
SEPERATE CONSOLE DEVICE 


CVDLABO DLV11-J TEST 
SwR= 000000 NEW= 10000<CR> 
WILL TEST: 


MODULE 1 CHANNEL O 1 2 3 
MODULE 2 CHANNEL O 1 2 3§ 


CSR: 


** PHASE 1 SUMMARY **« 


: 176500, VECTOR: 000500, ERRORS: 
: 176510, VECTOR: 000310, ERRORS: 
: 176520, VECTOR: 000320, ERRORS: 
: 176530. VECTOR: 000330, ERRORS: 


** PHASE 2 SUMMARY 


: 176500, VECTOR: 000300, "ERRORS : 


** PHASE he SUMMARY ae 


: 176540, VECTOR: 000340, ERRORS: 
6550 : 
: 176570. VECTOR: 000370. ERRORS: 


** PHASE 2 SUMMARY ** 
176540, VECTOR: 000540, ERRORG: 


END PASS # 1 


Oooo © Oooo 


© 


(ENABLE PERFORMANCE REPORTS) 


SEQ 0011 
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5.0 DEVICE REGISTERS. 





ma. hb... Rt 9 8 7 6 5 4 3 2 1 0 


EERE EERE EERE EEE EERE EERE EERE REE EERE EEE ERE RRR 


RCSR! ; , , ‘ i i 'RCVR!RCVR | i ' ' ' IRDR ! 

j i i j i i i iDONE ' IE i i i (ENB i 

a Snes ee See, Sea SN eae eS TE Oe SR ae... I 

RBUF'ERRO'OR ‘FR !P . : : : : RECEIVER DATA BUFFER : 

he ‘ERR ‘ERR iERR i ! 1 ! ! 

Pee rE err reeTeTerrrrrrrrrrrrrrrrrrr ttt TTT ttt tit titi iii titi iii, 

TCSR: ' i i i j i ! 'yXMIT'XMIT! ! ! | ' + aad 
i i i iRDY ‘IE | i 

a SOB, ike, SMe Seen ee Pee: SF, SERS SER A 

TBUF , ) ’ ; ' ' ! TRANSMITTER DATA BUFFER : 


i i i i i i 
eeedsAnAaAAARTAERARRRRRGRRTRaREERGRERANAAARRRRR EEN R NN EEEEEAMAE LENE EAAE ETS 
: ; i i i 


NOTES: 


1. RCSR yi! BASE ADDRESS ($BASE) 
RBUF AT $BASE+2 
TCSR AT $BASE+4 
TBUF AT S$BASE+6 


2. BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


5. ORERR = OVERRUN ERROR 
FRERR = FRAMING ERROR 
PERR = PARITY ERROR 
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PHASE 1 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


~~ =o ee oD ac oe =— see = eS So | - 


TESTS 





TEST 1 ADDRESSABILITY 


ee IMIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL 
UNDER TEST RESPOND TO THEIR ADDRESSES. 


THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 
TEST e BREAK ~ TCSR O SET, CLEAR, RESET 


TEST 5 XMITIE ~ TCSR 6 SET, CLEAR, RESET 


TEST 4 RCVRIE - RCSR 6 SET, CLEAR, RESET 
TEST 5 XMITRDY = TCSR 7 ~ IS SET BY INIT 


TEST 6 XMIT RDY =~ TCSR 7 = CLEARS “ a IS LOADED 
sees <@ WITH A CHARACTER AND T IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 7 OUTPUTTING A CHAR FROM TBUF (WITH WRAP AROUND CONNECTED) 
e=me= == RESULTS IN RCVRDONE SETTING WITHIN A 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 


TEST 10 RCVRDONE IS CLEARED BY SETTING READER ENABLE 


TEST 12 OVERRUN & ERROR BIT - RUF 14 


SEQ 0013 


Vu ' wt eo) ee eee eee 2 ee eo FEE elC< Cr _ «i od a tl > 


CVDLAB.P11 17=NOV=-78 09: 
TEST 13 TRANSMITTER INTERRUPT LOGIC TEST 
-OGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

8) AT PRIORITY OF FO 

C) AND ONLY ONCE 

D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
TEST 14 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 


wnm== => OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 


TEST 15 TEST DATA WRAP AROUND: FLAG MODE. 


TEST 16 TEST DATA WRAP AROUND: INTERRUPT MODE. 


TEST 17 TEST BREAK DETECTION LOGIC TRANSMIT KNOWN CHAR 


A) TRANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0 


B) TEST FOR FRAMING ERROR ON BREAK 


C) IF PARITY IS ENABLED AND ODD PARITY IS SELECTED, 
CHECK TO BE SURE PARITY ERROR WAS GENERATED 


D) IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED, 
CHECK TO BE SURE NO PARITY ERROR OCCURRED 


TEST 20 NOT A TEST = SEND BACK TO LOOP 


PHASE 2 TESTS 
TEST 21 TEST THAT CHANNELS INTERRUPT AT ASSIGNED PRIORITY 


TEST 22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING. 
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- TITLE vo" et TEST 
; *COPYRIGHT 1978 

> *DIGITAL EQUIPMENT CORP. 

; *MAYNARD , MASS. 01754 


: sPROGRAM BY GREGORY GLEZMAN & GARY PAPAZIAN 


< STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
** 


.SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON ERROR 

& LOOP ON TEST 

3 INHIBIT ERROR TYPEOUTS 
H INHIBIT ITERATIONS 
9 


BELL ON ERROR 
LOOP ON ERROR 
; 8 LOOP ON TEST IN SWR<7:0> 
-SBTTL BASIC DEFINITIONS 


oe A Fat OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 


Se Be Be . 
ee a 2 


“EQUIV IOT,SCOPE =BASIC DEFINITION OF SCOPE CALL 
: *MI SCELLANEOUS DEF INITIONS 

HT= 11 :CODE FOR HORIZONTAL TAB 

LF= 12 >:CODE FOR LINE FEED 

CR= 15 $3 CODE FOR CARRIAGE RETURN 

CRLF= 200 “CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 > =PROCESSOR STATUS WORD 

-EQUIV PS,PSW 

STKLMT= 177774 ;:STACK LIMIT REGISTER 

PIRQ= 177772 “PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 ; s HARDWARE SWITCH REGISTER 

DDISP= 177570 «HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 40 -:GENERAL REGISTER 

R1= %1 = :GENERAL REGISTER 

R2= %2 > *GENERAL REGISTER 

R3= %3 = :GENERAL REGISTER 

R4= %4, >= GENERAL REGISTER 

R5= %5 2: RAL REGISTER 

R6= %6 ;;GENERAL REGISTER 

R7= “7 -*GENERAL REGISTER 

SP= %6 >:STACK POINTER 

Pc= “7 : =PROGRAM COUNTER 


;*PRIORITY LEVEL cEFINITIONS 
PRO= 0 ;:PRIORITY LEVEL 0 


SEQ 0015 
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717 
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BASIC DEFINITIONS 


PR1= 40 ;;PRIORITY LEVEL 
PR2= 100 > PRIORITY LEVEL 
PR5= 140 ::PRIORITY LEVEL 
PR4= 200 : PRIORITY LEVEL 
= 240 > PRIORITY LEVEL 
PR6= 300 > PRIORITY LEVEL 
PR7= 340  SPRIORITY LEVEL 
7*' ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 
SwI4= 4 
Sw13= 20000 
SWi2= 10000 
SW11= 4000 
SW10= 2000 
SwO9= 1000 
SWO8= 400 
SWO7= 200 
SwO6= 100 
SWwOS= 40 
SWO4= 20 
SwO3= 10 
SWwO2= 4 
SWO1= 2 
Swoo= 1 
-EQUIV Sw09, 
EQUIV SWO8,SW8 
-EQUIV SWO7,SW 
-EQUIV SWO06, 
-EQUIV SWO5,SW5 
-EQUIV 


-EQUIV SWO00,SWO 
; *DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 


40000 
20000 
10000 
BIT11= 4000 
2000 
1000 
400 
100 
0 


iT) 
Mml—M 
Ooo 


m 
© 
ss 
—T 
<= 

Dwow—rwLl— 

tae he ba 

i 
Oooo 
“~v00 sO 
> * ~ 

www 
ey by 
4a 
IC JNO 


SEQ 0016 
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177777 
000600 
000001 
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BASIC DEFINITIONS 


EQUIV 


BIT06,B1T6 
ot Te B11 


BITOO.BITO 


; *BASIC ""CPU'" TRAP VECTOR Nhe out 


TPVEC= 


PIRQVEC=240 


ADRS=_  R1 
DLADDR= 176500 
inte — DEFINITIONS APPLY TO THE GLOBAL SUBS 


CLR= 


TRUE= 7 


OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 
:: TRACE TRAP 
: “BREAKPOINT TRAP (BPT) 
: INPUT /QUTPUT TRAP (IOT) **SCOPE** 


AIL 
5 FRAT OS TRAP (EMT) **ERROR** 
a TRAP 


::TTY KEYBOARD VECTOR 
eTTy PRINTER VECTOR 
: PROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0017 


F 2 
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CVDLAB.P11 17-NOV-78 09:38 BASIC DEFINITIONS 3 SEQ 0018 
759 
76) 
761 SAIS IOIDIOIIOISOINIIIDISISIIOIUIIIIUIUIDIOIUIUIDISIOIUIOIDIDIDIOIICIUIOISIOIIOII IIR 
76 : RCSR REGISTER BIT NAMES 
76 CII III IOIIIOISISISISIIIIIIIOIUIOIIOIICICIOICIOIIUIOIUIOIUIOIIIOIIIICIIOIC TORS IRR ® 
64 ; UNUSED BIT15 
765 ; UNUSED BIT14 
766 : UNUSED BIT13 
767 ; UNUSED BIT12 
768 ; UNUSED BIT11 
769 : UNUSED BIT10 
770 ; UNUSED BITO9 
771 ; UNUSED 1T08 
772 000200 RCVRDONE = BITO7 ; RECEIVER DONE 
773 000100 RCVRIE= BIT06 : RECEIVER INTERRUPT ENABLE 
774 ; UNUSED BITOS 
775 ; UNUSED BIT04 
776 ; UNUSED BITO3 
777 ; UNUSED B1T02 
778 ; UNUSED BITO1 
779 000001 RDRRUN= BITOO : READER RUN 
781 Neeser = gy ge gaa malnaeamaaaaamatala 
RBUF REGISTER BIT NAMES 
783 ss  penecacesdgeedandnesseeenennboabesneenenenenecescenesoasceesees 
100000 ERROR= BIT15 ; ERROR INDICATOR 
785 040000 ORERR= BIT14 > OVERRUN ERROR 
786 620000 FRERR= BIT13 : FRAMING ERROR 
787 010000 PERR= BITI12 ; PARITY ERROR 
788 ; UNUSED BIT11 
789 ; UNUSED BIT10 
; UNUSED BITC9 
791 > UNUSED 61708 
792 000200 RDATA?7= BITO7 =~ % 
793 000100 RDATA6= BIT06 oe 
794 000040 RDATAS= BITOS ae 
795 000020 RDATA4= BITO<4 : \ RECEIVED DATA BITS 
796 000010 RDATA3= BIT03 gu ug 
797 RDATA2= BITO2 rt SG 
798 000002 RDATA1= BIT01 a 
799 000001 RDATAQ= BITO0 ae 


2 
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CVDLAB.P11  17=NOV-78 09:38 BASIC DEFINITIONS SEQ 0019 
&O} se eee RARER TERT E RATATAT RAAT RAR RRR eA eS 
80 : TCSR REGISTER BIT NAMES 
80 SAAR AAA RAAT AAT ATA ATTRA AAA A REAR A Ae eRe eT ee 
804 ; UNUSED BIT15 
805 ; UNUSED BIT14 
806 ; UNUSED BIT13 
807 ; UNUSED BIT12 
808 ; UNUSED BIT11 
809 ; UNUSED BIT10 
810 ; UNUSED BITO9 
811 : UNUSED B1T08 
812 000200 XMI TRDY= BITO7 ; TRANSMITTER READY 
813 0001 XMITIE= BITO6 : TRANSMITTER INTERRUPT ENABLE 
814 ; UNUSED BITOS 
815 : UNUSED BIT04 . 
816 ; UNUSED BITO3 
817 ; UNUSED BITO2 
818 ; UNUSED BITO) 
aks 000001 BRE AK= B1T00 ; SEND BREAK (CONTINUOUS SPACE) 
821 
B22 LAA eee RETREAT ATTA E TET E AAA ATER A RAR A RETA R RRA ARERR AeA Tee 
823 : TBUF REGISTER BIT NAMES 
824 SERA AA AREER RAAT RET AAR A EERE RARER ETRE RE AEARERER ERE EES 
825 ; UNUSED BIT15 
826 ; UNUSED BIT14 
827 : UNUSED BIT13 
828 ; UNUSED BITle¢ 
829 ; UNUSED BIT17 
830 ; UNUSED BIT10 
831 ; UNUSED BITC9 
> UNUSED B1T08 

833 000200 TDATA7= BITO7 > \ 

000100 TDATA6= B!T06 gs 
835 0 TDATAS= BITOS "s 

000020 TDATAG= BITOS - \ TRANSMITTER DATA BUFFER 
837 000010 TDATA3= BITO3 » f 

000004 TDATA2= oi Tse -_ 
839 000002 TDATAI= BITO1 af 
ary 000001 TOATAQ= B!T00 af 
842 
84% Lee eReT RARE TATRA RAAT A THETA HERA RS ee A AE eR EKER EHO S SHEE EEE E EEE EE SS 
ais : FLAG BITS TO BE USE OR CLEARED IN $USWR. 
846 000002 PARITY = 2 
847 000004 EVENODD = & 
848 000010 BRK e ® 
R49 000020 WRAP 20) 


CVDLAAO DLVT1- 
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850 
851 


85 
85 
854 
855 


0001 74 
000176 


000200 


TEST 


MACY11 30G6(1063) 


7-NOV-78 09:38 


001 334 


013610 
000340 
000400 


000176 
001334 


17-NOV-78 
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BASIC DEFINITIONS 


rT TCE CEC ACCCLAOCACAC AREA ARER RRR REE REE ERR RR RRR RRR AAAS SASS SD 


* SBTTL 


TRAP CATCHER 


=0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “' g*ee HAL T"* 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


1$: 


DISPREG: = WORD 0 
SWR 


EG: .WORD 0 
. SBTTL STARTING ADDRESS(ES) 


72 SOFTWARE DISPLAY REGISTER 
7; SOFTWARE SWITCH REGISTER 


@ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


* OFFLINE TESTING FOR INTERRUPT VECTOR PROBLEMS 
.=400 


RO 
MINTSRV, (RO)+ SET INTR HANDLER PTR 
#PR7,(RO)+ :SET PRIORITY 
RO, 4400 ;ALL DONE? 
:BR IF NO 
176 sCLEAN UP SWREG 
START 360 IT 


SEG 0021 
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CVDLAB.P11 17-NOV~78 TARTING ADDRESS(ES) | SEQ 0021 
878 
Ban .SBTTL ACT11 HOOKS 
881 ss PAREEAAAAAERAAAAAEAASATEREREAANAERRAAHERAR RA AHAALARAAAAAAAAAEAS 
882 :HOOKS REQUIRED BY ACT11 
883 0004 30 $SVPC=. ;SAVE PC 
884 000046 .=46 
885 000046 014450 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
886 000052 .=52 ; 
887 000052 000000 -WORD 0 7:2)SET LOC.22 TO ZERO 
888 0004 30 . =$SVPC 7 RESTORE PC 
889 001000 .=1000 
pea .SRBTTL APT PARAMETER BLOCK 
892 SRR ERATE AERA EERE EERE AREER ERAT AAA AAA TARA R EERE ES 
893 -SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
BY RRR ERE RARER AAA AAA AAA AAA AA ATTRA ETAT A AREER EERE 
895 001000 .$X=. >; SAVE CURRENT LOCATION 
896 000024 .=24 :>:SET POWER FAIL TO POINT TO START OF PROGRAM 
897 000024 000200 200 ::FOR APT START UP 
898 000044 744 >:POINT TO APT INDIRECT ADDRESS PNTR. 
899 000044 001000 SAFI >;POINT TO APT HEADER BLOCK 
900 001000 .=.$X  ;; RESET LOCATION COUNTER 
901 FARRER AAA AAAERA AER AERARAR RAE RRARRAEARH ERASE EE RARH AER EERE 
902 -SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
oe : INTERFACE SPEC. 
905 001000 SAPTHD : 
906 001000 SHIBTS: .WORD 0 : TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
907 001002 001174 SMBADR: .WORD S$MAIL :: ADDRESS OF APT MAILBOX (BITS 0-15) 
908 001004 000031 $TSTM: .WORD 25. > RUN TIM OF LONGEST TEST 
909 001006 000144 SPASTM: .'WORD 100. ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
910 001010 000144 SUNI TM: .WORD 100. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL WNIT 
911 001012 00003C .WORD $SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
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CVDLAB.P11 17-NOV-78 09:38 COMMON TAGS SEQ 0022 

pat .SBTTL COMMON TAGS 

914 . eee eee AAA A AREA AA AAAA TAA AA EA ARAA AAA AAARE EARNER A HAAR E HRA E ES SS 

915 = THIS TABLE CONTAINS VARIOUS COMMON STORAGE _OCATIONS 

aS -*USED IN THE PROGRAM. 

918 001100 .=1100 

919 001100 SCMTAG: 7: START OF COMMON TAGS 

920 001100 000000 0 

921 oo tae 000 $TSTNM: .BYTE QO 3 CONTAINS THE de} NUMBER 

9 4 00110 000 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 

923 001104 000000 SICNT: .WORD 0 3; CONTAINS SUBTEST. ITERATION COUNT 

924 001106 000000 $LPADR: .WORD 0 ;: CONTAINS SCOPE LOOP ADDRESS 

925 001110 000000 LPERR: .WORD 0 :: CONTAINS SCOPE RET 

926 001112 000000 SERTTL: .WORD 0Q : CONTAINS TOTAL ERRORS DETECTED 

927 001114 000 SITEMB: .BYTE 0 34 TAINS ITEM CONTROL BYTE 

928 001115 001 SERMAX: .BYTE 1 36 . ERRORS PER T 

i ¥4 001116 000000 SERRPC: . 0 :; CONTAINS PC OF LAST ERROR INSTRUCTION 

=) 001120 000000 $GDADR: .WORD 0 7: CONTAINS ADDRESS OF ° P 

931 001122 000000 $BDADR: .WORD 0 : s CONTAINS ADDRESS OF ‘BAD’ DATA 

O36 001124 000000 $GDDAT: .WORD QO : TAINS ‘GOOD’ DATA 

93 pet 188 000000 SBDDAT: .WORD QO :: CONTAINS *"BAD’ DATA 

934 0011 000000 «WORD 0 :RESERVED--NOT TO BE USED 

935 001132 000000 -WORD 0 

936 001134 000 $AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 

937 001135 000 SINTAG: .BYTE QO : ; INTERRUPT MODE INDICATOR 

938 001136 -WORD 0 

939 001140 177570 SWR ‘ DSWR 7 ADDRESS OF SWITCH REGISTER 

940 001142 177570 DISPLAY: . DDISP : :ADDRESS OF DISPLAY REGISTER 

941 001144 177560 $TKS: 177560 ITTY KBD STATUS 

942 001146 177562 STKB: 177562 :TTY KBD BUFFER 

943 001150 177564 $TPS: 177564 7: TTY PRINTER STATUS REG. ADDRESS 

944 001152 177566 STPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 

945 001154 000 $NULL: .BYTE 0 ; CONTAINS NULL CHARACTER FOR FILLS 

946 0017155 002 $FILLS: .BYTE 2 sCONTAINS # OF FILLER CHARACTERS REQUIRED 

947 001156 012 SFILLC: .BYTE 12 73 INSERT FILL CHARS. AFTER A “LINE FEED" 

948 001157 SIPFLG: .BYTE 0 +3 ‘TERMINAL AVAILABLE’*’ FLAG (B11T<07>=0=YES) 

949 001160 000000 STIMES: 0 7MAX. NUMBER OF ITERATIONS 

950 001162 000000 $ESCAPE :0 « T ESCAPE ON ERROR ADDRESS 

951 001164 177607 000377 $SELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 

952 001170 077 SQUES: .ASCII /?/ ; QUESTION MARK 

953 001171 015 $CRLF: .ASCII] <15> ; CARRIAGE RETURN 

954 001172 000012 SLF : eASCIZ <12> SsLINE FEED 

955 2 RRR EERE ERE REAR ERA EERE AERA ERE EA ER AERA AAR REA ARERR ERS ERS 

228 .SBTITL APT MAILBOX-ETABLE 

958 SAREE RRR RERREAA ERE ARAEREAARRER AAA A ARERR RAS EERE AR ER EES 

959 EVEN 

960 001174 SMAIL: : :APT MAILBOX 

961 001174 000000 SMSGTY: .WORD AMSGTY sMESSAGE TYPE CODE 

a06 001176 000000 SFATAL: .WORD AFATAL ; FATAL ERROR NUMBER 

963 001200 009000 STESTN: .WORD ATESTN ;;TEST NUMBER 

964 001202 000000 $PASS: .WORD APASS = ;;PASS COUNT 

965 001204 000000 $DEVCT: .WORD ADEVCT ; sDEVICE COUNT 

966 001206 000000 : WORD ALUNIT UNIT NUMBER 

967 001210 000000 SMSGAD: .WORD AMSGAD = =MESSAGE ADDRESS 


K 2 
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968 001212 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

969 001214 SETABLE: >; APT ENVIRONMENT TABLE 

970 001214 000 SENV: .BYTE AENV : sENVIRONMENT BYTE 

971 001215 SENVM: .BYTE a4 I S 

972 001216 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

973 001220 001031 SUSWR: .WORD AU :+US R r.. 

974 001222 000000 $CPUOP: .WORD ACPUOP ;;CPU TYPE,OPTI 

975 :* BITS 15-11=CPU TYPE 

976 :* 11/04=01, 11/05=02, 11/20=03,11/40=04 ,11/45=05 
977 zt 11/70=06,PDQ=07 ,Q=10 

978 ;* BIT 10=REAL TIME CLOCK 

979 3* BIT 9=FLOATING POINT —_——, 

980 ;* BIT 8=MEMORY MANAGEMENT 

981 001224 000 $MAMS1: .BYTE AMAMS1 ;:;HIGH ADDRESS.M.S. BYTE 

982 001225 000 S$MTYP1: .BYTE AMTYP1 ;; : BLKA# 

983 is MEM.TYPE BYTE -- (HIGH BYTE) 

984 ;* 900 NSEC CORE=001 

985 ;* 300 NSEC BIPOLAR=002 

986 ;* 500 NSEC — 

987 001226 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK& 
988 ;* MEM.LAST T ADDR.=3 BYTES. THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
989 001230 000 SMAMS2: .BYTE AMAMS2 : HIGH ADDRESS.M.S. BYTE 

990 001231 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE, BLK#2 

991 001232 000000 SMADR2: .WORD AMADR ; 7 MEM .LAST ADDRESS, BLKA#2 

992 001234 000 3: .BYTE AMAMS : HIGH ADDRESS,.M.S.BYTE 

993 001255 000 SMTYP3: .BYTE AMTYPS ;;MEM. TYPE ,BLKA3 

994 001236 000000 : MEM. LAST ADDRESS .BLKA#3 

995 001240 000 4: .BYTE : HIGH ADDRESS.M.S. “BYTE 

996 001241 000 SMTYP4: .BYTE  AMTYP4 ; MEM. TYPE JBLKAS 

997 001242 000000 SMADR4: .WORD AMADR4 :MEM.LAST ADDRESS,BLK* 

998 001244 000300 SVECT1: .WORD AVECT1 : INTERRUPT VECTORA1 rr PRIORITY41 
999 001246 000000 S$VECT2: .WORD AVECT2 : : INTERRUPT VECTORA2BUS PR PRIORITY#2 
1000 001250 176500 S$BASE: .WORD ABASE BASE ADDRESS OF EQUIPMENT UNDER TEST 
1001 001252 000000 SDEVM: WORD ADEVM ::DEVICE MAP 

1002 001254 SE TEND: 

1003 MEXIT 


ee 


ee ee ee ee ed ed ed ed ed = 8 ed ed ed = 
SLSSLSSVSSSSESee’eessssss 
OWOONOULSWR-O NOW 
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.SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
NUMBER FOUND 


*THE INFORMATION IS OBTAINED BY USING THE INDEX IN 
:sLOCATION tia THIS NUMBER INDICATES WHICH ITEM IN THE eae IS PERTINENT. 


*NOTE F $ITEMB IS 0 THE ONLY PERTINENT DATA _IS ( C 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3* EM ; POINTS TO THE ERROR MESSAGE 
:* DH ;POINTS TO THE DATA HEADER 
th DT ::POINTS TO THE DATA 
5* DF :;POINTS TO THE DATA FORMAT 
001254 SERRTB 
; LOBAL DATA 
001254 176500 DLADD: DLADOR 
001256 DLVEC: 300 
176500 RCSR: DLADDR + Q 
001262 176502 RBUF: DLADDR + 2 
001264 176504 TCSR DLADDR + 4 
001266 176506 TBUF DLADDR + 6 
001270 000000 0 
001272 000020 -BLKW 20 :FOR RS STACK 
001332 000000 R5STACK: .WORD 0 
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10 001334 
1989 
1031 
1034 001334 012706 
1035 001340 005026 
1034 001342 022706 
1035 001346 001374 
1038 001350 012706 
10 001354 012737 
1039 001362 012737 
1040 001370 012737 
1041 001376 012737 
1006 001404 012737 
1043 001412 012737 
1044 0014 013737 
1045 001426 005037 
1046 0014352 005037 
1047 001436 112737 
1048 001444 012737 
1049 001452 012737 
1050 
1051 
1996 001460 013746 
1053 001464 012737 
1054 001472 012737 
1055 001500 012737 
1056 001506 022777 
1057 001514 00701 
1058 
1059 001516 
1060 001520 012716 
1062 001 356 012737 
1063 1332 012737 
Hse 001542 012637 
1066 001546 005037 
1067 001552 132737 
1068 001560 001403 
1069 001562 612737 
1070 001570 
1071 
107. 
1073 001570 005227 
1074 001574 1 
1075 001576 022737 
1076 001604 001437 
Ore 001606 104401 
1079 001612 005737 
1080 001616 001012 
1081 001620 123727 
os 001626 001406 
1085 0016 023727 
1084 001636 001005 
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001100 
001140 
001100 
016210 

0 


177777 


001526 
000176 
000174 
000004 
001202 
000200 
001216 


177777 
014450 
001654 
000042 
001214 
001140 


000176 
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ERROR POINTER TABLE 


START: 
. SBTTL 


;;CLEAR THE C 
MOV 


HSTA 
« s INITIALIZE A FEW NEC TOR 
MOV #$SC 


MOV 
:SIZE FOR A 

* TEQUAL TO A *1", 
MOV @#ERR 


CMP WSWR,R6 ;;DONE? 
a4 am 


be BF ESS THE COMMON TAGS 
OMMON TAGS (SCMTAG) AREA 
A#SCMTAG ,R6 yt LOCATION TO BE CLEARED 
LEAR MEMORY LOCATION 


:;LOOP BACK IF NO 
::SETUP THE STACK POINTER 


OPE, APO OTVEC tive VECTOR FOR SCOPE ROUTINE 
MOV #340, ahlOTVEC+2 sel 


CLR (R6) + 


MOV MTV ‘jem VECTOR FOR ERROR ROUTINE 
MOV #340 SR eTVECS EVEL 7 
MOV H#STRAP@ATRAPVEC : TRAP VECTOR FOR TRAP CALLS 


MOV #340, @#TRAPVEC+2; a. 


MOV SENDCT ,SEOPCT oer uP ” END~DF PROGRAM COUNTER 
CLR STIMES *: INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB  #1,$ERMAX “ALLOW ONE ERROR PER TEST 
MOV #. .$LPADR : SINITIALIZE THE LOOP ADDRESS FOR SCOPE 
. .$LPERR “SETUP THE ERROR LOOP ADDRESS 
SWITCH REGISTER. IF NOT FOUND OR IT IS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 
VEC, -( :SAVE ERROR VECTOR 
MOV #64$, AFERRVEC SET UP ERROR VECTOR 
MOV ADSWR, SWR ;:SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP, DISPLAY A DISPLAY REGISTER 
CMP #-1,aSWR >: TRY TO REFERENCE Su 
BNE 66$ : BRANCH IF NO TIMEOUT TRAP OCCURRED 


: sAND THE HARDWARE SWR IS NOT = -1 
BR 65$ 7;BRANCH IF NO TIMEOUT 


64$: art #65$, (SP) ::SET UP FOR TRAP RETURN 
65$: MOV ASWREG, SWR :zPOINT TO SOFTWARE SWR 
MOV #DISPREG, at 
66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
CLR $SPASS :CLEAR PASS COUNT 
BITB HAPTSIZE ,SENVM SITES? USER SIZE UNDER APT 
BEQ 67$ 7YES,USE NON-APT SWITCH 
675: MOV ASSWREG , SWR >:NO,USE APT SWITCH REGISTER 
ee TYPE PROGRAM NAME 
TYPE THE NAME OF THE PROGRAM IF FIRST sp 
INC #-1 es ST TIME? 
BNE 6S ;BRANCH IF NO 
CMP A#SENDAD , 0442 7 :ACT-11? 
vos 68$ — 


- SBTTL 


H IF YES 
YPE ,69$ YPE ASCIZ STRING 
GET VALUE FOR SOFTWARE suiTch REGISTER 
TST O42 7 7ARE WE RUNNING UNDER XXDP/ACT? 


BNE 70$ : =BRANCH IF YES 

CMPB SENV,41 «TARE WE RUNNING UNDER APT? 

BEQ : ;BRANCH IF YES 

CMP Swe , ASWREG ::SOFTWARE SWITCH REG SELECTED? 
BNE 71$ : ;BRANCH IF NO 


SEQ 0025 
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7 001644 199937 900001 001154 


001652 000414 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


GTSWR > 3:GET SOFT=-SWR SETTINGS 
Ao MOVB #1, SAUTOB 3:SET AUTO-MODE INDICATOR 


BR 68$ :GET OVER THE ASCIZ 
a eASCIZ <CRLF>*CVDLABO pi Vti-u TEST*<CRLF > 


SEQ 0026 


1092 
1093 


SSLFSF 


el ee le el ee ee ed ee eed ed ed ed od et ot 0d J ot 0 et Ht 2 tt 2 ot I ot I I ot tt I tt I ot I I ot I = Yt = 
— — — 
SS SSNS VRUNLESS VRARUN SSH QOnRAr—=OSSBNRRR AVS 
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v 
17 


tC! 


012137 
011137 


013737 


013737 
062737 


013737 
062737 
013737 
062737 
012705 


012700 
077001 


000005 
005237 
123727 
001003 
000137 
000402 


005037 


PUAL EEE OVA TVO? 
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001102 


001206 


001260 


001262 
001262 


001264 
001264 


001266 
001266 


000001 


ifr Twa Fh VF edt FZ revo CW 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


LOOP: 


$1: 


$2: 


PC,SIZE 


PHASE 2 
#1 ,SUNIT 


CHAN 
PICNT 


ASTACK, SP 
PC,CYCLE 


(ADRS) + ,DLADD 
(ADRS) ,DLVEC 


DLADD ,RCSR 


DLADD , RBUF 
#2, RBUF 


DLADD,TCSR 
#4,TCSR 
DLADD , TBUF 
#6, TBUF 


* 


ARSSTACK RS 
#1000 ,RO 
RO 


SDEVCT 

*: fea tcetali 
MODTST 

$2 


ST STNM 


“sSIZE THE BUS IF S$DEVM = 0 
: INIT FOR TESTS 


RESET STACK POINTER 
; SETUP MODULE AND CHANNE 


L 
ADRS+2 ~> NEXT VECTOR 
;GET UNIT ADDRESS 
LET DLADD := (ADRS)+ 


;GET UNIT VECTOR 


LET DLVEC := (ADRS) 
;RCSR = CLADD + O 

LET RCSR := DLADD 

LET RBUF := DLADD + #2 


LET TCSR := DLADD + &4 


LET TBUF DLADD + #6 


LET R5 #RSSTACK 


:DELAY TO ALLOW PRINT TO FINISH 
;BEFORE RESET 

BRE SET 

LET SDEVCT := SDEVCT + #1 
IFB PHASE2 EQ #TRUE THEN 


:GO TO PHASE 2 TESTING 
ELSE 


LET STSTNM := 4&0 
ENDIF 


SEQ 0027 


3 
CVDLAAO DEVI In TEST nah SOG106S) ere 09:39 PAGE 59 


CVDLAB.P1 17-NOV-78 09:3 ADDRESSABILITY ! SEQ 0028 
114 SAI IIOIIIDIDIISIOIIIIOIOIIICIOINISII IOI ICIDIOIOIOIUICIOIOIOIICIUICIIIOIOIOIIOIIOI IIIT IR 
14¢1 s*TEST 1 ADDRESSABILITY 

-% 
1145 ;* THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL UNDER TEST 
13 77 RESPOND TO THEIR ADDRESSES. 
-* 
1148 ROR ICRC ICCC ROO TORII III I IAIAIISSIISSISISSSISISIISSSISSSSAS SASS AM 
1149 002066 000004 TST1: SCOPE 
1150 002070 012737 000002 001160 MOV #2,$TIMES ;;DO_2 ITERATIONS 
1151 002076 012737 900001 001200 MOV #1, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
1128 002104 LET ADRS := DLADD 
1153 002104 015701 001254 MOV DLADD ,ADRS 
1154 ; SET UP INTERRUPT 
1155 002110 012737 013610 000004 MOV #INTSRV,ERRVEC 
1156 002116 012737 000340 000006 MOV #PR7 ,ERRVEC+2 
1157 002124 LET I := #0 
1158 002124 005037 001270 CLR I 
1159 002130 REPEAT 
1160 002130 $3: 
1161 002130 BGNSUB 
1162 002130 012737 0021356 001110 MOV #64$,,$LPERR 
1163 ; CLEAR FLAG 
1164 002136 LET INTFLAG := #0 
By 002136 005037 015616 CLR INTFLAG 
1167 READ FLAG 
1168 002142 005711 TST @ADRS 
1169 002144 IF INTFLAG NE #0 THEN 
1170 002144 005737 013616 TST INTFLAG 
1171 002150 001401 BEQ $4 
1172 ; FATAL ERROR 
1173 002152 ERRDF 1 
1174 002152 104001 ERROR 1 
1175 002154 ENDIF 
1176 002154 $4: 
1177 002154 ENDSUB 
1178 002154 LET I := 1 + #2 
1179 002154 062737 000002 001270 ADD #e,!] 
1180 002162 LET ADRS := DLADD + I 
1181 002162 015701 001254 MOV DLADD , ADRS 
1182 002166 063701 001270 ADD I ,ADRS 
1183 002172 UNTIL I EQ #8. 
1184 002172 023727 001270 000010 CMP I a8. 
1185 002200 001353 BNE $3 


VOL vin TEST 


CVDLAB.P 


SESSSPSESSSESE & 


Oe et eet 20d edd od ot 2 et 8 LL LL 
SS3S8s 


: 


17-NOV=7 


032777 
001401 
104027 


177476 
007400 
177476 


177400 


000006 
000006 


177050 


177040 


177030 


177020 


000004 


2$: 


3$: 


43: 


MACY11 506(1065) - aaa 09:39 PAGE B > 
8 09:38 


ADDRESSABILITY 
BIT #177476, @RCSR 
BEQ 1$ 
ERROR 27 
BIT #7400, ARBUF 
BEQ 2$ 
ERROR 30 
BIT #177476,aTCSR 
BEQ 3$ 
ERROR 31 
BIT #177400 ,aTBUF 
BEQ 4$ 
ERROR 32 
MOV #6 ,ERRVEC 
CLR ERRVEC+2 


s;CHECK THAT ALL UNUSED BITS ARE 0 
;RCSR HAS UNUSED BITS SET 


;RBUF HAS UNUSED BITS SET 


;TCSR HAS UNUSED BITS SET 


;TBUF HAS ;UNUSED BITS SET 
RESTORE 


SEQ 0029 


CVDLAAO DLV11=J_TEST 
CVDLAB.P11 17=NOV-78 09: 
I 
1509 
1208 
1209 
3 
1912 
1213 
1214 
1215 
1216 002264 000004 
1217 002266 012737 000010 
1218 02274 012757 00002 
1220 002302 
1221 002302 032737 000010 
1222 902510 001001 
1223 002312 
1224 002312 000452 
1225 002314 
1226 002314 
1227 
1228 
1229 002314 
1230 002514 012737 002322 
1232 002322 
1233 002322 032777 000001 
1234 002330 001401 
1235 
1236 002332 
1237 002332 104002 
1238 0023 
1239 002334 
1240 002334 
1241 
1242 
1243 002334 
1244 002334 012737 002342 
1245 002342 
1246 002342 052777 000001 
1248 002350 
1249 002350 032777 000001 
1250 002356 001001 
1251 
1252 002360 
1253 002360 104003 
1254 002362 
1255 002362 
1256 002362 
1257 
1258 
1259 002362 
1260 002362 012737 002370 


001160 
001200 


001220 


001110 


176734 


001110 
176714 


176706 


001110 


3 
aac ka SOGC106S) ve 09:39 PAGE 5 


ADDRESSABILITY 


TO TO CPCCCCCOCCCLACAASZASA AAAS ERE E REESE RR RRR ARERR RR AR ARDS ASSES 


-* THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 


tL AAR ERAEREE RR AERA AEE A RRA RR ARR RARER ED 


EEE REE EEE EERE AKERS 


S*TEST 2 BREAK - TCSR O SET, CLEAR, RESET 
_ THIS BIT IS THE ONLY ONE IN THIS POSITION 


+ THAT IS READ AND WRITE. 
tL RAMA AERA AEEREREEEEEARARRREREREARERAEARRRERRAR ARERR AERA S 
TST2: SCOPE 

MOV #10,$TIMES +:DO 10 ITERATIONS 

MOV #2, $TESTN >>SET TEST NUMBER IN APT MAIL BOX 


IF ABRK NOTSETIN $SUSWR THEN 
BIT eo 


SEQ 00350 


BNE 
EXIT : BREAK NOT INSTALLED 
BR TST3 ::EXIT THIS TEST 
| ENDIF 
$5: 
; SEE IF IT IS CLEAR 
BGNSUB 
MOV #64$,$LPERR 
IF #BREAK SETIN @TCSR THEN 
BIT #BREAK ,@TCSR 
BEQ $6 
: BREAK DID NOT RESET IN TCSR 
ERRHRD 2 
ERROR 2 
ENDIF 
$6: 
ENDSUB 
: TRY TO SET BREAK BIT 
BGNSUB 
MOV #64$,$LPERR 
LET @TCSR := @TCSR SET.BY 4BREAK 
BIS #BREAK ,@TCSR 
: STUCK TO 0 
IF #BREAK NOTSETIN a@TCSR THEN 
BIT #BREAK ,aTCSR 
BNE $7 
: BREAK DID NOT SET IN TCSR 
ERRHRD 3 
ERROR 3 
ENDIF 
$7: 
ENDSUB 


; TRY TO CLEAR A SET BI! 
BGNSUB 
MOV 4c’/$,$LPERR 


3 
CVDLAAO DLV11-J_TEST MACY11 30G6(1063) eae” * 09: 39 PAGE 52 SEO 0031 





CVDLAB.P1 17-Nov-78 09:38 T2 TCSR 0 SET, CLEAR, RESET 
j O05 358 LET @TCSR := @TCSR CLR.BY MBREAK 
1 002370 042777 000001 176666 BIC #BREAK ,@TCSR 
1 ; SHOULD HAVE CLEARED 
1265 002376 IF #BREAK SETIN @TCSR THEN 
1266 002376 032777 000001 176660 BIT #BREAK ,aTCSR 
1267 002404 001401 BEQ $10 
1268 ; BREAK DID NOT CLEAR IN TCSR 
1269 002406 ERRHRD 4 
1270 002406 104004 ERROR 4 
1271 002410 ENDIF 
1272 002410 $10: 
1$o7 002410 ENDSUB 
1275 ; NOW SEE IF RESET CLEARS IT 
1276 002410 BGNSUB 
Isrh 002410 012737 002416 001110 MOV #64%$,$LPERR 
1279 002416 LET @TCSR := @TCSR SET.BY #BREAK 
1280 002416 052777 000001 176640 BIS ABREAK ,a@TCSR 
1281 ; ISSUE BUS RESET 
1282 002424 BRE SET 
1283 002424 000005 RESET 
1284 002426 IF #BREAK SETIN @TCSR THEN 
1285 002426 032777 000001 176650 BIT #BREAK ,@T CSR 
1286 002454 001401 BEQ $71 
1287 ; BREAK DID NOT RESET IN TCSR 
1288 002436 ERRHRD 5 
1289 0024356 104005 ERROR 5 
1290 002440 END IF 
1291 002440 $11: 
1292 002440 ENDSUB 


3 
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CVDLAB.P11 17=-NOV-78 09:38 T2 BRE - TCSR O SET, CLEAR, RESET 
| 
1334 SRA REAR AAAAEAAAAAAAE REA AAREARAAERERE A RAERARERANE ARH REH ERE ES 
1295 ;*TEST 3 XMITIE = TCSR 6 SET, CLEAR, RESET 
1$39 Ss RRAAEARAAAAAAAAAARERAAAEEREERANEAAAAAERAREEAREREAAAAARAA AEH AA AES 
1297 002440 000004 TST3: SCOPE 
1s 002442 012737 000010 001160 MOV #10, $TIMES :;D0 10 ITERATIONS 
1 002450 012737 000003 001200 MOV #3, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
1300 : : USE PRIORITY OF 7 
15 002456 SETPRI #PR7 
1305 : SEE IF IT IS CLEAR 
1304 002470 BGNSUB 
1 002470 012737 002476 001110 MOV #65$,$LPERR 
1307 002476 IF AXMITIE SETIN @TCSR THEN 
1308 002476 032777 000100 176560 BIT AXMITIE,@TCSR 
1309 002504 0014601 BEQ $12 
1310 : XMITIE DID NOT RESET IN TCSR 
1311 002506 ERRHRD 12 
1312 25 104012 ERROP 12 
1313 002510 ENDIF 
1314 002510 $12: 
\gi2 002510 ENDSUB 
1317 : TRY TO SET XMITIE BIT 
1318 002510 SGNSUB 
1319 002510 012737 002516 001110 MOV #64%,$LPERR 
1320 002516 LET @TCSR := @TCSR SET.BY #XMITIE 
1321 002516 052777 000100 176540 BIS AXMITIE ,@TCSR 
1322 ; STUCK TO 0 
1323 002524 IF #XMITIE NOTSETIN a@TCSR THEN 
1324 002524 032777 000100 176532 BIT AXMITIE,@TCSR 
1325 002532 001001 BNE $13 
1326 : XMIT DID NOT SET IN TCSR 
1327 002534 ERRHRD 13 | 
1328 002534 104013 ERROR 13 
1329 002536 ENDIF 
1330 002536 $13: 
1335 0025 36 ENDSUB 
1335 > TRY TO CLEAR A SET BIT 
1334 002536 BGNSUB 
eae 002536 012737 002544 001110 MOV #64%,$LPERR 
1337 002544 . LET @a’CSR := @TCSR CLR.BY #XxXMITIE 
1338 002544 042777 000100 176512 BIC AXMITIE ,@aTCSR 
1339 > SHOULD HAVE CLEARED 
1340 002552 IF AXMITIE SETIN a@TCSR THEN 
13%41 002552 032777 000100 176504 BIT AMXVAITIE,a*CSR 
1342 002560 001407 REQ $14 
1343 ; XMIT DID NOT CLEAR IN TCSR 
1344 002562 FRRHRD 14 
1%5 002562 104014 FRROR 14 
136 002564 ENDIF 
1347 002564 $74 
1348 002564 ENDSUB 


H 3 
CVDLAAO DLV11=)_TEST MACY11 306(1063) _17-NOV-78 09:39 PAGE 34 
CVDLAB.P1 17-NOV-78 09:38 13 XMITIE - TCSR 6 SET, CLEAR, RESET SEQ 0035 


i1%49 

135) : NOW SEE IF RESET CLEARS IT 

1351 902564 BGNSUB 

139 002564 912737 002572 001110 MOV #64$,$LPERR 

\eee On5276 LET @TCSR := @TCSR SET.BY #XMITIE 
1355 002572 052777 000100 176464 BIS AXMITIE,@TCSR 

1356 - ISSUE BUS RESET 

1357 002600 BRE SET 

1358 902600 000005 RESET 

1359 002602 IF AXMITIE SETIN @TCSR THEN 
1360 032777 900100 176454 BIT A#XMITIE,@TCSR 

1361 002610 001401 BEQ $15 

1362 ; XMIT DID NOT RESET IN TCSR 
1363 002612 . ERRHRD 15 

1364 002612 104015 FRROR 15 

1365 002614 ENDIF 

13%66 002614 $15: 

1367 002614 ENDSUB 


5 
3 
2 


3 


NN YN NN 


SEBEES ERE 


Fe Be cotiamathabienanaatathabamaiaamh ama anh ame athabeads sphamaams ope om mam. ean atk ake ane 
SSSesesesss 


2 
& 


vile 


TEST 


012757 


032777 
001401 


104035 


012737 
052777 


032777 
001001 


104036 


012737 


042777 


032777 
001401 


104037 


MACY11 30G(1063) 
17<NOV-78 09:38 13 


001160 
061200 


001110 


176412 


001110 
176372 


176364 


007110 


176344 


176356 


3 
17-NOV-78 09:39 PAGE 35 
XMIT 6 


IE - TCSR SET, CLEAR, RESET 


TORE ARECASCECAAAAASEAAAARAAAAAEE EERE EEE RR RR RRR RRR RRR RARER ERDAS DS 


seTEST G RCVRIE - RCSR 6 SET, CLEAR, RESET 
oe THIS BIT IS THE ONLY ONE IN THIS POSITION 
:* THAT IS READ AND WRITE. 
s RAE A AAA AERA AAAEETEAEAAAERERAEREREAEERARRERARARRAAR REAR ER ES 
TST4: SCOPE 
MOV #10, $TIMES :;D0 10 ITERATIONS 
MOV #4,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
> SEE IF IT IS CLEAR 
BGNSUB 
MOV #64$,$LPERR 
IF ARCVRIE SETIN @RCSR THEN 
BIT ARCVRIE,@RCSR 
BEC $16 
; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35 
ERROR 38 
. ENDIF 
$is: 
END SUB 
: TRY TO SET RCEVRIE BIT 
BGNSUB 
MOV #64%$,$LPERR 
LET @RCSR := A@RCSR SET.BY ARCVRIE 
BIS MRCVRIE,@RCSR 
: STUCK TO 0 
IF #MRCVRIE NOTSETIN @RCSR THEN 
BIT #RCVRIE,@RCSR 
BNE $17 
> RCVRIE DID NOT SET IN RCSR 
ERRHRD 36 
ERROR 36 
ENDIF 
£17: 
ENDSUB 
: TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #643, S$LPERR 
LET @RCSR := @RCSR CLR.BY #RCVRIE 
BIC AMRCVRIE ,ARCSR 
: SHOULD HAVE CLEARED 
IF MRCVRIE SETIN @RCSR THEN 
BIT #RCVRIE,ARCSR 
BEQ $20 
> RCVRIE DID NOT CLEAR IN RCSR 
ERRHRD 37 
ERROR 37 
ENDIF 
$20: 
ENDSUB 


SEQ 0034 


5s 
. 


ig 


RTPA aT aT 
LS25y 


— 3 8 2 3.4 .) 


Ww 
Ww 


AAO D 
PI 


DEVI TEST 


903796 


17-NOV=78 


012737 
05277? 
000005 
032777 
001401 


104040 


MACY11 306(1065) | 
09: 38 


902734 001110 


000100 


000100 


176316 


176306 


aa 46° 


, ers 
RC VATE. - Aceh d SET, CLEAR, RESET 
NOW SEE IF RESET CLEARS IT 
BGNSUB 
MOV #64$,SLPERR 
LET @RCSR := @RCSR SET.BY ARCVRIE 
BIS #MRCVRIE,@RCSR 
: ISSUE BUS RESET 
BRE SET 
RESET 
IF MRCVRIE SETIN @RCSR THEN 
BIT ARCVRIE,@RCSR 
BEQ $21 
: RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40 
ERROR 40 
. ENDIF 
$21: 
ENDSUS 


SEG 9035 


CVDLAAO DLV11-J_TEST 
CVDLAB.P11 


SNA 


1459 


002756 
002760 
002766 


002774 
002774 
003002 
003002 
003010 


000004 
12737 
12737 
012737 
032777 
007002 


104042 


000005 


000010 
000005 
903002 


000200 


MACY11 30G(1063) 
17-NOV-78 09:38 


001160 
001200 


001110 


176254 


er Tw PPE CECOCCACACCCASCSASAE AERA S ESSE SERRE RRR RR ER RRR RRR RRR RRR RASA SASSO SS 


TEST THAT XMITRDY - TCSR 7 =~ IS SET BY INIT 


os RARE RRAAAERAAAAAARAE EAE RETR AARARAAAERARRARARANTHRAARARR TARAS 


17-NOV- 

14 

“aTEST 5 

TSTS: SCOPE 
MOV 
MOV 
MOV 
BIT 
BNE 
ERROR 
RESET 

$22: 


Kk 3 
78 09:39 PAGE 37 
RCVRIE - RCSR 6 


#10,$TIMES ;;D0_10_ITERATIONS 
#5, STESTN SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
#64$,$LPERR 
IF 
#XMITRDY ,aTCSR 
$22 
;RESET SHOULD HAVE SET BIT 
:XMITRDY DID NOT SET IN TC 
ss ERRHRD 42 
c 
; ISSUE ANOTHER RESET 
BRE SET 
ENDIF 
;ALLOW LOOPING ON ERROR 
ENDSUB 


SET, CLEAR, RESET 


SEQ 0036 


AXMITRDY NOTSETIN @TCSR THEN 


SR (AFTER RESE 


CVDLAAO VT Iny TEST er? 09:39 


MACY11 30G6(1063) PAGE 
CVDLAB.P 17-NOV-78 09:38 15 TEST THAT XMITRDY - TCSR 7 ~ IS SET BY INIT SEQ 0037 
Ue PEER EEE EERE AAA AAA RAAT AREER RE 
1470 s*TEST 6 TEST THAT XMIT RDY = TCSR 7 = CLEARS 
1471 :* WHEN TBUF IS LOADED WITH A CHARACTER 
147 :* AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
147 5 ARERR RAAT AAA AAA AAA RARER A AER AE RARE AES 
1474 003016 000004 TST6: SCOPE 
1475 003020 012737 000010 001160 MOV #10, $TIMES ;:D0_10 ITERATIONS 
pgs 003026 012737 000006 061200 MOV #6, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
1478 003034 IF CONSOL EQ #TRUE THEN 
1479 003034 023727 013604 000001 CMP CONSOL , #TRUE 
1480 003042 00100 BNE $23 
1481 003044 EXIT 
1482 003044 000521 BR TST7 :;EXIT THIS TEST 
1483 005046 ENDIF 
Mr = 003046 $23: 
1486 003046 LET PASS := #0 ;INIT COUNT OF TIMES THRU 
1487 003046 005037 003502 CLR PASS 
1488 003052 LOOP ; START OF LOOP 
1489 003052 $24: 
1490 >; MAX OF 2 TIMES THRU 
1491 003052 LET ERRORFLAG := #0 
1492 003052 005037 003304 CLR ERRORF LAG 
1493 005056 LET EXITFLAG := #0 
1494 003056 005037 003506 CLR EXITFLAG 
1495 ; LOAD TBUF WITH ONE CHARACTER 
1496 ; WAIT FOR READY TO SET 
1497 ; (SHOULD BE VERY SHORT WAIT 
yy ; SINCE UART DOUBLE BUFFERS ITS INPUT) 
1500 ;SEND A_CHARACTER 
1501 003062 LET aTBUF :B= #0 
1502 003062 105077 176200 CLRB @TBUF 
1503 es A MAXIMUM 
1504 OF 50 MSEC FOR 
1505 XM T RDY TO SET TCSR 
1506 003066 CALL "TIMER IN <#500, #XMI TROY, TCSR ,ASET> 
1507 003066 010546 MOV R5,~-(SP) 
1508 003070 012745 177777 MOV #SET,-(R5) 
1509 003074 013745 001264 MOV TCSR,-(R5) 
1510 003100 012745 000200 MOV #XMITRDY ,~(R5) 
1511 003104 012745 000500 Moy #500, -(R5) 
1512 003110 737 012446 JSR TIMER 
1513 003114 012605 MOV (SP)+, R5 
1514 ; TIMER RETURNS AN ERROR IF BIT DID 
1515 :NOT MEET CONDITION WITHIN TIME LIMIT 
1516 003116 IF .ERROR THEN 
1517 003116 103003 BCC $26 ; 
1518 ;XMIT RDY DID NOT SET IN TCSR 
1519 003120 ERRHRD 66 
1520 003720 104 ERROR 66 
1521 003122 0001357 003310 MP TST? 
1522 003126 ENDIF 
1523 003126 $26: 


3 
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CVDLAB.P11 17=NOV-78 09:38 TEST THAT XMIT RDY - TCSR 7 = CLEARS SEQ 0038 
1524 003126 105077 176134 CLRB a TBUF :SHIP 1°ST CHAR 

1525 003132 105777 176126 1$: TSTB aTCSR ;WAIT FOR RDY 

1526 003136 100375 BPL 1$ 

lage + LOAD TBUF WITH A SECOND CHARACTER (TO DOUBLE BUFFER) 
1528 > CHECK IMMEDIATELY THAT XMITRDY IS CLEAR 

r+ : AND THEN WAIT FOR IT TO SET 

1531 :SEND SECOND CHARACTER 

1532 003140 LET @TBUF :B= #0 

1533 003140 105077 176122 CLRB @TBUF 

1534 003144 000240 NOP : GIVE IT TIME TO CLEAR 

1535 ; XMIT ROY Y SHOULD HAVE CLEARED UPON 
1536 RECEIPT OF A CHARACTER 

1537 003146 IF AXMITRDY SETIN @TCSR THEN 

1538 003146 032777 000200 176110 BIT #XMITRDY,@TCSR 

1539 003154 001404 BEQ $27 

1540 : XMITRDY DID NOT CLEAR IN TCSR 
1541 ; WILL RESULT IN ERR 67 IF FAILS 2x 
1542 003156 LET ERRORFLAG := #SET 

1543 003156 012737 177777 003304 MOV ASET. ERRORFLAG 

iF 39: : DEFER ERROR TYPEOUT 
1546 003164 ELSE 

1547 003164 000416 BR $30 

1548 005166 $27: 

1549 :WAIT A MAXIMUM 

1550 OF 100 MSEC FOR 

1551 XMIT RDY TO SET IN TCSR 

1396 003166 CALL TIMER IN <#1000,4XMITRDY. TCSR.#SET> 
1553 003166 010546 MOV R5,-(SP) 

1554 903170 012745 177777 MOV #SET.-(R5) 

1555 )03174 013745 001264 MOV TCSR,-(R5) 

1556 003200 012745 000200 MOV #XMITRDY ,~-(R5) 

1557 003204 012745 001000 MOV #1000,-(R5) 

1558 003210 004737 012446 JSR PC, TIMER 

1559 003214 012605 MOV (SP) +, R5 

1560 003216 IF .ERROR THEN 

1561 003216 103001 BCC $31 

1266 >MMIT RDY DID NOT SET IN TCSR 
1563 003220 ERRHRD 70 

1564 003220 104070 ERROR 70 

1565 003222 ENDIF 

1566 003222 $31: 

1567 003222 ENDIF ; OF DEFERED ERROR CALL 

1565 003222 $30: 

1569 03222 IF ERRORFLAG EQ #SET THEN 

1570 003222 023727 003304 177777 CMP ERRORFLAG,#SET 

1571 0032 001013 BNE $32 

1306 003232 LET PASS := PASS + #1 

15 Oo ase 005237 003302 INC PASS 

1574 003236 IF PASS GT #1 THEN 

1575 003236 023727 003302 000001 CMP PASS ,41 

1576 003244 003404 BLE $33 

1577 : CALL ERROR IF 2ND TRY 

1578 : ON XMIT RDY NOT CLEARING 
1579 003246 ERRHRD 67 


: 


SEBRFEREEES 


‘ 
SYVSLSSISS 


$8 


P1 


DLVIT=J TEST. MACY? 30G(1063) 17-NOV-78 09:39 PAGE 40 
17-NOV-78 09:38 T6 TEST THAT XMIT RDY - TCSR 7 = CLEARS SEQ 0039 

00 46 104067 ERROR 67 

5 LET EXITFLAG := #SET 
50 012737 177777 003306 MOV AMSET.EXITFLAG 

003256 ENDIF 

003256 $33: 

ss 56 ELSE ; NO ERROR 
56 000403 BR $34 

003260 $32: 

003260 LET EXITFLAG := #SET 

ei 60 012737 177777 003306 MOV MSET.EXITFLAG 
66 ENDIF 

003266 $34: 

003266 EXIF EXITFLAG EQ #SET 

003266 023727 003306 177777 CMP EXITFLAG,ASET 

003274 001401 BEQ $25 

eo asoe ENDLOOP 

ik 76 000665 BR 44 

OO 3300 wich EXIT SKIP AROUND FLAG WORDS 

: . L 

003300 000403 BR TST7 :;EXIT THIS TEST 

itt 000000 PASS: 0 

003304 000000 ERRORFLAG: 0 

0033506 000000 EXITFLAG: 0 


~~ sv= FY 


CVDLAB.P11 


1603 


eee 


wtabwddeidiivciead tia Dwoiaw Wei aiDtadbdadauwidiwaadad 
RRARLURAK SALAS ASSSS 
CONAUESWN OO OONAUSWN-O N 


wR 


012737 


105077 


012737 


000005 


— 17=NOV-78 09:38 


000010 
000007 


000020 
013604 


003556 


175704 


177777 
001260 
000200 


000500 
012446 


003424 001110 


001160 
061200 


001220 
000001 


001110 
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TEST THAT XMIT RDY = TCSR 7 = CLEARS 


EEK REAR EEEEEAEEAEAEAAEAAAAAEEAAEEEEAEERAEEEEEEREREEE 


“STEST 7 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 
:* RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
;* AND THAT RESET CLEARS THE BIT 
TTT TET TELL CELE bd ldictehdnieisiosicisielsieloieioteteletoie 
TST7: SCOPE 
MOV #10, $TIMES ::DO 10 ITERATIONS 
MOV #7, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
IF AWRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
81 T HWRAP , SUSWR 
CMP CONSOL , #TRUE 
BNE $36 
$35: 
EXIT 
BR TST10 ::EXIT THIS TEST 
ENDIF 
$36: 
BGNSUB 
MOV #64$,$LPERR 
: SEND A CHARACTER AND LET IT WRAP AROUND 
LET aTBUF :B= 40 
CLRB = aTBUF 
: WAIT A MAXIMUM OF 50 MSEC 
: FOR RCVR DONE TO SET IN 
CALL TIMER IN <#500,4RCVRDONE .RCSR,#SET> 
MOV R5,-( 
MOV #SET,-(RS) 
MOV RCSR.-(R5) 
MOV #RCVRDONE ,-(R5) 
MOV #500, -( 
JSR C,TIME 
MOV (SP)+,R5 
:DIDN'T SET IN TIME 
IF ERROR THEN 
BCC $37 
- RCVRDONE DID NOT SET IN RCSR 
ERRHRD 71 
ERROR 71 
ENDIF 
$37: 
ENDSUB 
BGNSUB 
MOV Hoss. $LPERR 
NOW THAT IT IS SET SEE IF i. CAN BE RESET 
BRESET 
RESET 


C 
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CVDLAB.P11 17-NOV-78 09:38 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 


IF ARCVRDONE SETIN @RCSR THEN 


6 ? 
003426 032777 900200 175624 BIT ARCVRDONE ,@RCSR 
001401 $40 


0034 34 BEQ 
- RCVRDONE DID NOT RESET IN RCSR. 
ERRHRD 72 


36 104072 ERROR 72 
0 ENDIF 
003440 $40: 

ENDSUB 


SEQ 0041 


D 
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CVDLAB.P11 17-NOV-78 09:38 T7 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) SEQ 0042 
1669 
198% Sp RR RRR RE RRR E RRR EERE EE ERE EERE EERE EERE 
1671 :*TEST 10 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 
167 SRR ERE R ERE RE EEEEEE ER 
1675 003440 000004 TST10: SCOPE 
1674 003442 012737 000010 001160 MOV #10,$TIMES 3:D0 10 ITERATIONS 
1902 003450 012737 000010 001200 MOV #10,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1677 003456 IF AWRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
1678 003456 032737 000020 001220 BIT AWRAP , SUSWR 
1679 003464 001404 BEQ $4 
1680 023727 013604 000001 CMP CONSOL ,4#TRUE 
1681 003474 001001 BNE $42 
1682 005476 $41: 
1683 003476 EXIT 
1684 003476 000433 BR TST11 :zEXIT THIS TEST 
1685 003500 END IF 
1686 003500 $42: 
1687 
1688 0035500 BGNSUB 
1689 003500 012737 003506 001110 MOV #64$ ,$LPERR 
Ly 4 : OUTPUT A CHARACTER AND WAIT FOR XMITRDY TO SET. 
1692 ; OUTPUT A CHARACTER 
1693 003506 LET @aTBUF :B= #0 
1694 003506 105077 175554 CLRB @TBUF 
1695 > WAIT MAXIMUM OF 500 MSEC 
1696 ; FOR RCVRDONE TO SET IN 
1697 ; RCSR 
1698 003512 CALL TIMER IN <#500,4RCVRDONE ,RCSR ASE T> 
1699 003512 010546 MOV R5,-(SP) 
1700 003514 012745 177777 MOV MSET,~(R5) 
1701 003520 013745 001260 MOV RCSR,-(R5) 
1702 003524 012745 000200 MOV #RCVRDONE ,~(R5) 
1703 003530 012745 000500 MOV #500,~-(R5) 
1704 003534 004737 012446 JSR PC, TIMER 
1705 003540 012605 MOV (SP)+,R5 
1706 ; DID IT BECOME READY? 
1707 003542 IF .ERROR THEN 
1708 003542 103001 BCC $43 
1709 sRCVRDONE DID NOT SET IN RCSR 
1710 003544 ERRHRD 25 
1711 003544 104025 ERROR 25 
1712 > SET IT BACK TO CONTINUE 
1713 003546 ENDIF 
1714 003546 $43: 
tat 003546 ENDSUB 
1717 :NOW THAT IT IS SET LETS SEE IF SETTING 
a) :READER ENABLE CLEARS RCVRUONE 
1720 003546 LET @RCSR := ARCSR SET.BY #RDRRUN 
1721 003 052777 000001 175504 BIS #RDRRUN , ARCSR 
1722 003554 IF @RCVRDONE SETIN @RCSR THEN 
1723 003554 032777 000200 175476 BIT 4r.” VRDONE , @RCSR 
1724 003562 001401 BEQ $44 


A 4 
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CVDLAB.P11 17-NOV-78 09: 38 710 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 
1725 | ;RCVRDONE DID NOT CLEAR IN RCSR 
1726 003564 ERRHRD 26 
1727 003564 104026 ERROR 26 
1728 ; SET IT BACK TO CONTINUE 
1729 003566 END IF 
1750 003566 $44: 


F_ 4 
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CVDLAB.P11 17=NOV-78 09: TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE SEQ 0044 
1731 
1333 SRR ERE EEE EEE EERE RARER EERE ERE REE ERE ERR RRR AE RE ER 
1733 :*TEST 11 TEST THAL RCVRDONE IS CLEARED BY READING RBUF 
173%4 2 RRR EEE EERE TERRE RARER RARER E ARERR A RAR R ARE EH 
1735 003566 000004 TST11: SCOPE 
1736 003570 012737 000010 001160 MOV #10, $TIMES ::DO0 10 ITERATIONS 
eae 003576 012737 000011 001200 MOV #11,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1739 003604 IF AWRAP NOTSETIN $SUSWR OR CONSOL EQ #TRUE THEN 
1740 003604 032737 900020 001220 BIT AWRAP , SUSWR 
1741 003612 001404 BEQ $45 
1768 003614 023727 013604 000001 CMP CONSOL , #TRUE 
1743 003622 1001 BNE $46 
1744 003624 $45: 
1745 003624 EXIT 
1746 003624 000432 BR TST12 ::EXIT THIS TEST 
1747 003626 ENDIF 
1748 003626 $464: 
1749 
1750 003626 BGNSUB , 
1751 003626 012737 003634 001110 MOV #64$,$LPERR 
1736 +: OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET. 
1754 : OUTPUT A CHARACTER 
1755 003634 LET aTBUF :B= #0 
1756 003634 105077 175426 CLRB @TRUF 
1757 >: WAIT MAXIMUM OF 500 MSEC 
1758 : FOR RCVRDONE TO SET IN 
1759 : RCSR 
1760 003640 CALL TIMER IN <#500,4RCVRDONE ,RCSR,#SET> 
1761 003640 010546 MOV R5,-(SP) 
1762 003642 012745 177777 MOV ASET,-(R5) 
1763 003646 013745 001260 MOV RCSR,-(R5) 
1764 003652 012745 000200 MOV #RCVRDONE ,-(R5) 
1765 003656 012745 000500 MOV #500,-(R5) 
1766 3662 004737 012446 JSR PC, TIMER 
1767 003666 012605 MOV (SP)+,R5 
1768 : DID IT BECOME READY? 
1769 003670 IF .ERROR THEN 
1770 003670 103001 BCC $47 
1771 :RCVRDONE DID NOT SET IN RCSR 
1772 003672 ERRHRD 73 
1773 003672 104073 FRROR 73 
1774 : SET IT BACK TO CONTINUE 
1775 003674 ENDIF 
1776 003674 $47: 
ee 003674 ENDSUB 
1779 : NOW THAT IT IS SET LETS SEE IF READING THE 
EA : BUFFER CLEARS RCVRDONE. 
1782 :READ BUFFER 
1783 003674 LET RO :B= aRBUF 
fa 003674 117700 175362 MOVB @RRUF ,RO 
1786 003700 IF #RCVRDONE SETIN @RCSR THEN 
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TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


1M —— 
7 ;RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 74 


RR 74 
ce SET IT BACK TO CONTINUE 


ENDIF 
$50: 


SEQ 0045 
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711 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


eC CP CPCPESECCACCOOAAAAESEAEEE ESE AER ERE REE ERE SRR RRR RRR RRR RRA SRR ESS SES, 


=*TEST 12 TEST THE OVERRUN & ERROR BITS - RBUF 14 
eT TSP CPOCP EPCOT ACACAAAALACCALAAAABAAAEERE RRR R EEE EERE RRR RRR RRR RRR AS ES SD 
$T12: SCOPE 
MOV #10, $TIMES ::D0 10 ITERATIONS 
MOV #12, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
IF CONSOL EQ #0 THEN 
TST CONSOL 
BNE $51 
JF AWRAP SETIN SUSWR THEN 
BIT AWRAP , SUSWR 
BEQ 
7; NULL ---EXECUTE TEST 
ELSE 
BR $53 
$5?: 
EXIT 
BR TST13 ::EXIT THIS TEST 
ENDIF 
$53: 
ELSE 
BR $54 
$51 
EXIT 
BR TS713 ::EXIT THIS TEST 
ENDIF 
$54: 
BGNSUB 
MOV #6443, $LPERR 
>OUTPUT 2 CHARACTERS 
>THIS SHOULD AN CAUSE OVERRUN ERROR. 
sOUTPUT 1 CHARACTER 
LET aTBUF :B= 40 
CLRB @ 1 BUF 
CALL TIMER IN <#500,4RCVRDONE ,RCSR,#SET> 
MOV R5,-(SP) 
MOV aSET, -(R5) 
MOV RCSR, “= R5) 
MOV #RCVRDONE ,-(R5) 
MOV #500, =(R5) 
JSR PC, TIMER 
MOV (SP) +,R5 
:DID IT SET IN TIME? 
IF .ERROR THEN 
BC $55 
:RCVRDONE DID NOT SET IN RCSR 
FRRHRD 16 
ERROR 16 


SEQ 0046 
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CVDLAB.P11 17=NOV-78 09:38 112 TEST THE OVERRUN & ERROR BITS - RBUF 14 SEQ 0047 
1851 004024 ENDIF 
128 004024 $55: | 
1854 ZQUTPUT 2ND CHARACTER 
1855 004024 LET @TBUF :B= #0 
1856 004024 105077 175236 CLRB a TBUF 
1857 :LET OVERRUN HAPPEN 
1858 004030 WAITMS 300. 
1859 004030 010546 MOV RS5.-(SP) 
1860 004032 012745 900454 MOV #300. ,-(R5) 
1861 036 006737 012620 JSR PC, WAIT 
1862 004042 012605 MOV (SP) +,R5 
1864 ;READ BUFFER AND ERROR BITS 
1865 004044 LET R4 := @RAUF 
1866 004044 017704 175212 MOV @RBUF .R4 
1868 :IT DIDN'T SET 
1869 004050 IF MORERR NOTSETIN R4& THEN 
1870 004050 032704 040000 BIT HORERR ,R4 
1871 004054 00 BNE $56 
1872 : :ORERR DID NOT SET IN RBUF 
1875 004056 ) ERRHRD 101 
187% 004056 704101 FRROR 101 
1876 :NO USE COMPC’INDING ERRORS 
1877 004060 XIT 
1878 004060 000460 BR 1S713 ::EXIT THIS TEST 
1879 004062 ENDIF 
1880 004062 $56: 
188) 004062 ENDSUB 
1883 NOW SEE IF ERROR BIT SET WITH OVERRUN’ ERROR: 
1884 004062 BGNSUB 
1885 004062 012737 004070 001110 MOV #64$,$LPERR | 
1886 004070 IF MERROR NOTSETIN R4& THEN 
1887 004070 032704 100000 BIT #ERROR ,R4 
1888 004074 001002 BNE $57 
1890 = ERROR DID NOT SET IN RBUF 
1891 004076 ERRHRD 102 
1892 004076 104102 ERROR 102 
1894 s-WHEN ORERR SET. 
1895 sGET OUT NOW. 
1896 004100 EXIT 
1897 004100 000450 BR TST13 ::EXIT THIS TEST 
1898 004102 ENDIF 
1899 004102 $57: 
1900 004102 ENDSUB 
1902 004102 BGNSUB 
1903 004102 012737 004110 001110 MOY #648. , SLPERR 
1904 “CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
1906 004110 IF M#ORERR NOTSETIN @RBUF THEN 
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1907 004110 032777 040000 175144 BIT #ORERR , ARBUF 

1 004116 001002 BNE $60 

1910 sREADING RBUF CLEARED ORERR. 
1911 0064120 ERRHRD 103 

ba 004120 104103 ERROR 103 

191 ;SKIP REST OF TEST 

1914 004122 XIT 

1915 004122 000437 BR TST13 :sEXIT THIS TEST 

1916 004124 ENDIF 

1917 004124 $60: 

ia 44 004124 ENDSUB 

1920 004124 BGNSUB 

1921 004124 012737 004132 001110 MOV #64$,$LPERR 

1356 :READING RBUF ABOVE SHOULD ENABLE ERROR TO BE CLEARED 
192 :BY NEXT TRANSFER, 

1956 sNOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 
1926 : SEND A CHARACTER AROUND. 
1927 004132 LET aTBUF :B= 40 

1928 004132 105077 175130 CLRB aT BUF 

Ub 004136 CALL TIMER IN <4500,4RCVRDONE ,RCSR,ASET> 
19 004136 010546 MOV R5,-(SP) 

1931 004140 012745 177777 MOV MSET,-(R5) 

19 004144 013745 001260 MOV RCSR,-(R5) 

1933 004150 012745 000200 MOV #RCVRDONE ,-(R5) 

1934 004154 012745 000500 MOV #500,-(R5) 

1935 004160 004737 012446 JSR PC, TIMER 

1338 004164 012605 MOV (SP)+,R5 

1938 :DID IT SET IN TIME? 

1939 004166 IF .ERROR THEN 

1940 004166 103001 BCC $61 

1941 :RCVRDONE DID NOT SET IN RCSR 
1942 004170 ERRHRD 20 

1943 004170 104020 ERROR 20 

1944 004172 ENDIF 

Lb oF 004172 $61: 

1947 004172 IF #ORERR SETIN @RBUF THEN 
1948 004172 032777 040000 175062 BIT #ORERR , ARBUF 

1949 004200 001402 BEQ $62 

1950 :ORERR DID NOT CLEAR IN RBUF 
1951 004202 ERRHRD 104 

Lb es 004202 104104 ERROR 104 

1954 s~AF TER RECEIVING ANOTHER CHAR 
1955 :SKIP AROUND REST 

1956 004204 EXIT 

1957 004204 000406 Fhe TST13 ::EX!IT THIS TEST 

1958 004206 ENDIF 

Mb 4 004206 $62: 

1961 004206 IF MERROR SETIN @RBUF THEN 
1962 006206 032777 100000 175046 BIT MERROR , aRBUF 


K 4 
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SEQ 0049 


CVDLAB.P11 17-NOV-78 09:38 T12 TEST THE OVERRUN & ERROR BITS - RBUF 14 
1963 004214 001401 BEQ $63 
1964 :ERROR DID NOT CLEAR IN RBUF 
1965 004216 cRRHRD 105 
1396 004216 104105 ERROR 105 
1968 004220 ENDIF 
1969 004220 $63: 
1970 004220 ENDSUB 
1971 004220 : EXIT 
1972 004220 000400 Rr TS713 ::EXIT THIS TEST 


CVDLAAO DLV11-J_TEST 
CVDLAB.P11 


1973 
1974 
1975 
197 
19 
1978 


r) 
3 


PRR CS i tot Set tet 


Seeeoraess 


and and cab and and aad and 


SSSSSSSsss 
WO OONAnE WO 


SESS Do 
BRREREEE ER 


Oo 
pepe 
Oo 


: 
8 


17-NOV-78 


MACY11 30G(1063) 
09:38 


013610 
000340 


004272 
177777 


00 
012446 


000100 


000100 


177777 
013616 
000001 


000500 
012446 


001110 


174734 


174714 


nt ee 09:39 


PAGE 
TEST THE OVERRUN é ERROR BITS - RBUF 14 SEQ 0050 


fA Re AAA RARER AEE AAA A AAR AAREREARAEA REAR AREER ER ER SS 


-*TEST 13 TRANSMITTER INTERRUPT LOGIC TEST 
:* LOGICALLY | THIS IS 4 SEPARATE TESTS 
+ A) DOES T ANSMITTER INTERRUPT LOGIC WORK 
:* B) AT SRIORITY OF 0 
:* C) AND ONLY ONCE 
_ D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
ss dneotennconnaeegnseseesensenasenssasnasessnaaneseserenaaoneneee 
TS113: SCOPE 
MOV #10, $TIMES ::DO 10 ITERATIONS 
MOV #13.$TESTN ->SET TEST NUMBER IN APT MAIL BOX 
; CLEAR "INTERRUPT OCCURED’ FLAG 
LET INTFLAG : 
CLR INTFLAG 
:GET VECTOR ADDRESS 
LET R3 := DLVEC 
MOV DLVEC,R3 
:FOR THE TRANSMITTER 
LET R3 := R35 + #4 
ADD #4 ,R3 
:SET VECTOR TO POINT TO TRANS.SRV AT PRI 
MOV MINTSRV, (R3)+ 
MOV #PR7, (R3) 
BGNSUB 
MOV #64, $LPERR 
MAKE SURE THAT TRANSMITTER READY IS SET 
CALL TIMER IN <#500,4XMI TRDY, TCSR,#SET> 
MOV R5,-(SP) 
MOV #SET,-(R5) 
MOV TCSR,-( 
MOV AXMITRDY,-(R5) 
MOV (RS 
JSR PC, TIME 
MOV (SP)+,R5 
:CLEAR INTERRUPT ENABLE 
LET a@TCSR := aTCSR CLR.BY #XMITIE 
BIC AXMITIE ,aTCSR 
sSET IT TO 0 
SETPRI #PRO 
:NOW SET I.E£. BIT 
LET a@TCSR := aTCSR SET.BY #XMITIE 
BIS #XMITIE,@TCSR 
CALL TIMER IN <#500,41,4INTFLAG,ASET> 
MOV R5,-(SP) 
MOV #SET.-(R5) 
MOV #INTFLAG, -(R5) 
MOV 
MOV #00, ~(R5) 
JSR pc R 
MOV ATi RS 


on 
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:DID IT SET IN TIME? 
1 004400 IF .ERROR THEN 
004400 103001 BCC $64 
- INTERRUPT DID NOT OCCUR 
00440 ERRHRD 106 
5 004402 104106 ERROR 106 
2036 0044 ENDIF 
2038 004404 $64: 
-LET POSSIBLE 2°ND INTERR OCCUR 
0 004404 WAITMS 500. 
1 004404 010546 MOV -(SP) 
3 004406 012745 000764 MOV R260. =(R5) 
2043 004412 004737 012620 JSR PC WAIT 
sO 004416 012605 MOV (SP)+,R5 
2046 :DID EXACTLY 1 INTERRUPT OCCUR 
2047 004420 IF INTFLAG GT 41 THEN 
3048 004420 023727 013616 000001 CMP INTFLAG,#1 
2049 004426 003401 BLE $65 
2050 : TRANSMITTER INTERRUPTED TWICE 
1 004430 ERRHRD 107 
26 004430 104107 ERROR 107 
004432 ENDIF 
2054 004432 $65: 
2055 004432 ENDSUB 
2056 : INTERRUPT WITHOUT INTERRUPT ENABLE SET 
7 004432 BGNSUB 
B 004432 012737 004440 001110 MOV #64$,$LPERR 
2059 =CLEAR INTERRUPT ENABLE 
2060 004440 LET @TCSR := aTCSR CLR.BY #XMITIE 
2061 004440 042777 000100 174616 BIC #XMITIE,ATCSR 
e068 :CLEAR "INTERRUPT OCCURED’ FLAG 
004446 LET INTFLAG := #0 
004446 005037 013616 CLR INTFLAG 
5 :NO INTERRUPTS SHOULD OCCUR, PSW STILL AT 0. 
“DARE IT TO HAPPEN 
eth 004452 LET @TBUF := 40 
004452 005077 17461 CLR @TBUF 
9 -SEE IF INT FLAG EVER SETS 
004456 CALL TIMER IN <#1000,41,4INTFLAG, SE T> 
71 004456 010546 MOV R5,-(SP) 
2 460 012745 177777 MOV #SET,-(RS5) 
46h 012745 013616 MOV #INTFLAG, -(R5) 
74 004470 012745 000001 MOV (R5) 
75 004474 012745 001000 MOV #1600. =(R5) 
6 004500 004737 012446 JSR PC, TIMER 
77 004504 012605 MOV (SP)+,R5 
78 -DID IT SET DURING TIMER? 
79 004506 103401 BCS 1$ -BR IF NO 
- INTERR STILL OCCURED WITH IE DISABLED 
2081 004510 ERRHRD 110 
$082 004510 104110 ERROR 110 
2083 004512 1$: 
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SEQ 0052 


rT TCC CCCCCCLCCCCACACCCACAS ASAE AEE EEE EEE RRR RRR RAR AAAS ARSED, 


-*TEST 14 RECEIVER INTERRUPT LOGIC TEST 
_ THIS TEST COVERS ALL OF THE RECEIVER 
:* SIDE OF THE INTERRUPT LOGIC IN 
:* CHARACTER is 
2 RRARA AAA AARAEAAAAREREREEEAAEAARAAARERAAARAERARRERARRARRA TREE ES 
1S114: SCOPE 
MOV #10. $TIMES ::DO0 10 ITERATIONS 
MOV #14,$TESIN >:SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
BIT #WRAP , SUSWR 
BEQ $66 
CMP CONSOL , # TRUE 
BNE $67 
$66: 
JMP TST15 : EXIT TEST 
ENDIF 
$67: 
:CLEAR INTERRUPT OCCURED FLAG 
“SET UP RECEIVER INTER. VECTOR 
SETVEC DLVEC.4INTSRV,APR7 
MOV R1,-(SP) 
MOV DLVEC,R1 
MOV #INTSRV, (R1)+ 
MOV #PR7,(R1) 
MOV (SP)+,R1 
-PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
BGNSUB 
MOV #64$,$LPERR 
LET INTFLAG := #0 
CLR INTFLAG 
:CLEAR INTERRUPTS 
LET @RCSR := ARCSR CLR.BY ARCVRIE 
BIC #RCVRIE,ARCSR 
:CHANGE PRIORITY 
;..10 0 
SETPRI #PRO 
:SEND A CHARACTER 
LET @TBUF :B= #0 
CLRB  a@TBUr 
“WAIT A MAX IMUM 
-oF 50 MSEC FOR 
-XMIT RDY TO SET IN TCSR 
CALL TIMER IN <#500,A4RCVRDONE , TCSR,ASET> 
MOV 5,-(SP) 
MOV #SET.-(R5) 
MOV TCSR,-(R5) 
MOV #RCVR -(R5) 
MOV #500,-(R5) 
JSR PC, TIMER 
MOV (SP)+, R5 


;SET INTERRUPT ENABLE 


LET @RCSR 


:= @RCSR SET.BY #RCVRIE 
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000100 


177777 
013616 
000001 


009500 
012446 


013616 


004 760 


000100 
013616 


174270 


wwe r*r* Fo 


174370 


000001 


001110 


174272 


~ eS 


$70: 


$71: 


31S 


CLRB 


RECEIVER INTERRUPT LOGIC TEST 
#RCVRIE ,ARCSR 


R5,-(SP) 


ASE 
4) 


#560 


at 
(SP 


$70 


111 


T,~(R5) 


#INTFLAG,~(R5) 
-(R5) 


~~ (R5) 
TIMER 
»+,R5 


RS,-(SP) 
#500,-(R5) 
C,WAIT 


PC, 
(SP 
INT 
$71 


112 


; INTERRUPT WITHOUT IE a f 
#64%$,$LPERR 


ARCVRIE ,ARCSR 


INT 


d+,R5 


FLAG 


a 1 BUF 


sLET IT COME IN. 
CALL TIMER IN <#500,41,4INTFLAG,ASE T> 


:DID IT SET IN TIME? 
IF ERROR THEN 


; INTERRUPT DID NOT OCCUR 
ERRHRD 111 


END IF 
;LET POSSIBLE 2°ND INTERR OCCUR 
WAITMS 500 


sEXACTLY 1 INTERRUPT? 
IF INTFLAG GT #1 THEN 


;RECEIVER INTERRUPTED TWICE 
ERRHRD 112 
END IF 
ENDSUB 


GNSUB 


;CLEAR INTERRUPT 


LET @RCSR := @RCSR CLR.BY #RCVRIE 


:CLEAR INTERRUPT FLAG 
LET INTFLAG := #0 


; SEND A CHARACTER 
LET @TBUF :B= 40 
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18 : DARE IT 
2198 004776 CALL TIMER IN <#500,41,#INTFLAG,ACLR> 
2199 004776 010546 MOV R5,-(SP) 
2 005000 012745 000000 MOV #CLR,-(R5) 
2201 005004 OS te 013616 MOV #INTFLAG,-(R5) 
302 005010 012745 000001 MOV #1,- 
2203 005014 012745 000500 MOV #500,-(R5) 
2 5020 004737 012446 JSR PC, TIMER 
6 § 005024 012605 MOV (SP)+,R5 a is 

: LEAR IN TIME? 
2207 005026 IF .ERROR THEN 
2208 005026 103001 BCC $72 iia ainia aciaa 

IN LL D WITH IE DISABLED 
2210 005030 ERRHRD 113 
2211 005030 104113 FRROR 113 
2212 005032 ENDIF 
2213 005032 $72: 
2214 005032 ENDSUB 
2215 005032 SETPRI A#PR7 sRAISE CPU PRIORITY 
2216 =CLEAR THE WORLD 
2217 005044 BRESET 
2218 005044 000005 RESET 


D 
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, 
3592 SS RERPRARAAARERAERAERAEEAAEERERAEERARAARERAEREAERARREERRAARAERA ENA ES 
-*TEST 15 TEST DATA WRAP AROUND: FLAG MODE 
$ 4 5 RARER ERAAAEAAEEAEEEEEERAEEERARERRARRRAEEEARRERRARRRRERARR ERED 
5 005046 000004 TST15: SCOPE 

2226 005050 012737 000001 001160 MOV #1 .$TIMES 200 1 ITERATION 

2227 005056 012737 000015 001200 MOV #15, $TESTN “SET TEST NUMBER IN APT MAIL BOX 

2228 005064 IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
2229 005 032737 000020 061220 BIT HWRAP , SUSWR 

2230 005072 001404 BEQ 

3231 005074 023727 013604 000001 CMP CONSOL , #TRUE 

3032 005102 001001 BNE $74 

233 005104 ; $73: 
2234 :CAN'T TEST WITHOUT A WRAP 
2235 005104 EXIT 

2236 005104 000506 me TST16 ::EXIT THIS TEST 

223/ 005106 ENDIF 

2238 005106 $74: 
2239 005106 BRESET 

2240 005106 000005 RESET 
2241 :BINARY COUNT PATTERN 

2 42 005110 INCR R2 FROM #0 TO #377 BY #1 
324% 005110 005002 CLR R2 
2244 005112 000401 BR $75 
: 45 005114 $76: 

46 005114 005202 INC R2 
2247 005116 $75: 
2248 005116 020227 000377 CMP R2,4377 
2249 005122 003077 BGT $77 
2250 
2251 
225 
225 MAKE SURE IT'S READY 
2254 005124 CALL TIMER IN <#500, AXMITRDY, TCSR,#SET> 
2255 005124 010546 MOV R5,-(SP) 
2256 005126 012745 177777 MOV #SET,-(RS) 

2257 005132 013745 001264 MOV TCSR,-(R5) 
2258 005136 012745 000200 MOV #XMITRDY,-(R5) 

2259 005142 012745 000500 MOV #500,-(R5) 

2260 005146 004737 012446 JSR PC, TIMER 
2261 005152 012605 MOV (SP)+,R5 
2262 005154 IF .ERROR THEN 

2263 005154 103002 BCC $100 
3264 - TRANSMITTER NEVER BECAME READY 
5 005156 ERRHRD 123 

2 005156 104123 ERROR 123 

2267 005160 EXIT 

2 005160 000460 BR TST16 ::EXIT THIS TEST 

2269 005162 ENDIF 

2270 005162 $100: 

2271 
227 :START IT ON ITS WAY 
2273 005162 LET aTBUF :B= R2 

2274 005162 110277 174100 MOVB R2, aTBUF 

2275 NOW WAIT FOR RECIEVER DONE 


2276 005166 CALL TIMER IN <#500,4RCVRDONE ,RCSR ,#SET> 
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010546 


017703 


032703 
001401 


104200 


020302 
001415 
032737 
001006 


020227 
002002 


104117 
000416 


000402 


104017 
000413 
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177777 
901260 
000200 
000500 
012446 


174032 


100000 


000001 


000200 


001220 


$101: 


$10c: 


$105: 


$104: 


BIT 
BEQ 


ERROR 


ERROR 


5 
09:39 PAGE 7 
T DATA WRAP AROUND: FLAG MODE 


R5 ,~(SP) 
#SET,-(R5S) 


PC, TIMER 
(SP)+,R5 


$101 
124 


TST16 


@RBUF RS 
#ERROR R35 
$102 


200 


R3,R2 
$103 


#B1T0,$USWR 
$104 


R2,4200 
$105 


117 
TST16 


$106 


17 
TST16 


IF .ERROR THEN 
FRRHRD 124 
, NEVER BECAME READY 
3zEXIT THIS TEST 
ENDIF 


:RETRIEVE 
LET R3 := @RBUF 


;CHECK FOR ERROR DURING TRANSFER 
IF MERROR SETIN R3 THEN 
;ERROR BIT ScT IN HIGH BYTE OF RBUF 
ERRHRD 200 


ENDIF 


; COMPARE DATA 
IF R35 NE R2 THEN 


IF #BITO NOTSETIN SUSWR THEN 
IF R2 LT #200 THEN 
;DATA COMPARE ERR IN 7 BIT WORD 
ERRHRD 117 


XIT 


>sEXIT THIS TEST 
ENDIF 


ELSE 


;DATA COMP ERR IN 8 BIT WORD 
ERRHRD 17 


EXIT 
:, EXIT THIS TEST 


SEQ 0056 


a? 
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VDLAB.P11 17-NOV~-78 09: TEST DATA WRAP AROUND: FLAG MODE SEQ 0057 
2333 005274 ENDIF 

23 005274 $106: 

2335 005274 ELSE IF #BITO NOTSETIN $USWR AND R2 GT #177 THEN 
23 005274 000411 BR $107 

2337 005276 $103: 

2338 005276 032737 000001 001220 BIT #B1TO,SUSWR 

2339 005 00100 BNE $110 

2340 005306 020227 000177 CMP R2.4177 

2341 005312 003402 BLE $110 

Sere :GETTING 8 BITS ON 7 BIT XMIT 

254 :MAKE SURE $SUSWR SETUP CORRECTLY. 
2344 005314 ERRHRD 22 

2345 005314 104022 ERROR 22 

23%46 005316 EXIT 

2347 005316 000401 BR TST16 ::EXIT THIS TEST 

2348 005320 ENDIF 

2549 005320 $110 

2350 005320 $107: 

2351 00532 ENDINC ;R2 

2352 005320 000675 S BR $76 

2353 005322 ?7: 
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000001 
000016 


000020 
013604 


005772 


007256 


005664 
000340 


005626 
000340 


005622 
005662 
000001 


001160 
001200 


061220 
000001 


001220 


TUR CCCASCECCACASCESSSES ESAS ALES ESE RE RRR R RRR RRR ARRAS R RR RASA SSSR DSO, 


SEQ 0058 


> *TEST 16 TEST DATA WRAP AROUND: INTERRUPT MODE 
eT ST CPCCA AEACAECACLAACAEALLALAACAAAAAEAAEAEERERR ERE R RRR R RRR R RRR R RRS SS SD 
TST16: SCOPE 
MOV #1,$TIMES eer 1 ITERATION 
MOV #16, $STESTN T TEST NUMBER IN APT MAIL BOX 
IF AWRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 
BIT #WRAP , SUSWR 
BEQ $11 
CMP CONSOL , #TRUE 
BNE $112 
$111: 
JMP TST17 sEXIT TEST 
DIF 
$112: 
: THIS TEST WILL RUN BOTH TRANSMITTER AND 
> RECIEVER AT FULL SPEED TESTING - 
: THE ABILITY OF THE MODULE 
; TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE. 
= DOUBLE BUFFERING IS NOT FULLY TESTED BECAUSE OF 
“APT CONSIDERATIONS. I.E. ‘BREAK’ FROM APT 
= CAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INTR IS 
ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST WORD 
: THIS TEST WILL TRANSFER A MAXIMUM OF 400(8) 
> CHARACTERS THROUGH THE MODULE. BUT IF AN ERROR 
: IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 
heey PRIORITY 
SETPR] #PRO 
:GET VECTOR ADDRESS 
LET R71 := DLVEC 
MOV DLVEC,R1 
sRCVR VECTOR 
LET (R1)+ := #REC 
MOV MRECT,(R1)+ 
LET (R1)+ := APR7 
MOV #PR7,(R1)+¢ 
:POINT TO TRANSMITTER VECTOR 
+ AND SET IT UP ALSO 
LET (R1)+ := @TRAN 
MOV ATRAN, (R1)+ 
LET (R11) = #PR7 
MOV #PR7,(R1) 
: CLEAR ERROR COUNTER 
LET ERRCNT := 40 
CLR ERRCNT 
LET DATA := #0 ;XMIT DATA 
CLR DATA 
1- MBITO NOTSETIN $USWR THEN 
BIT #BITO,$USWR 


H 5 
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2410 005440 001004 BNE $118 

2411 005442 LET NUMBER := #200 
5412 005442 012737 00200 005624 MoV «#200, NUMBER 

2413 005450 ELSE 

2414 005450 000403 BR $114 

2415 005452 $113: 

2416 005452 : LET NUMBER := #400 
2417 005452 012737 000400 005624 Mov «#400, NUMBER 

2418 005460 ENDIF 

2419 005460 $114: 


2421 005460 BRESET ;SET UP ALL REGISTERS 
2422 005460 000005 RESET 


2424 sSET I.E. IN TRANSMITTER 
2425 005462 LET aTCSR := @TCSR SET.BY #XMITIE 
2426 005462 052777 000100 173574 BIS AXMI TIE ,@TCSR 


;AND RECEIVER 
2428 005470 LET @RCSR := @RCSR SET.BY #RCVRIE 
2429 005470 052777 000100 173562 BIS ARCVRIE,@RCSR 


2432 , NOW WE WAIT 
2433 005476 REPEAT 

2434 005476 $115: 

2435 005476 UNTIL DATA EQ NUMBER OR ERRCNT GT #0 
2436 905476 023737 005662 005624 CMP DATA NUMBER 


005737 005622 TST _ 
2440 005514 $116: 


2442 sNOW LETS CHECK. 
2443 ; TURN OFF ALL INTR ENABLE 
2444 005514 LET @TCSR := a@TCSR CLR.BY #XMITIE 
2445 005514 042777 000100 173542 BIC MXMITIE ,@TCSR 
2446 005522 LET @RCSR := @RCSR CLR.BY ARCVRIE 
2447 005522 042777 000100 1735350 BIC AMRCVRIE ,AaRCSR 
2448 0055 IF ERRCNT NE #0 THEN 

005530 005737 005622 ise ERRCNT 
005534 001431 BEG $117 
2451 005536 IF MERROR SETIN RHLD THEN 
005536 032737 100000 005/770 BIT MERROR , RHLD 
005544 001424 BEQ $120 
2454 005546 IF MORERR SETIN RHLD THEN 
2455 005546 OAS 040000 005770 eT ; eenaies 


56 
2457 ; OVERRUN ERROR 
2458 005556 ERRHRD 220 
2459 005556 104220 ERROR 220 
2460 005560 ELSE IF #FRERR SETIN RHLD THEN 
2461 005560 009415 BR $122 
2462 005562 $121: 
2463 005562 032737 020000 005770 BIT MFRERR,RHLD 
2464 005570 001402 BEQ $723 
2465 ;FRAMING ERROR 


ey DLVIIT=J 
CVDLAB.P11 


2 
2501 


005622 
005624 


TEST 


i 7-NOV-78 
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001402 
104222 
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104024 


000401 


104120 
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TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0060 
ERRHRD 221 
ERROR 221 
ELSE IF #PERR SETIN RHLD THEN 
BR $124 
$123: 
BIT #PERR,RHLD 
BEQ $125 
:PARITY ERROR 
ERRHRD 222 
ERROR 222 
ELSE 
BR $126 
$125: 
: UNKNOWN ERROR 
ERRHRD 24 
ERROR 24 
ENDIF 
$126: 
$124: 
$122: 
ELSE 
BR $127 
$120: 
:DATA COMPARE ERROR 
ERRHRD 120 
ERROR 120 
ENDIF 
$127: 
ENDIF 
$117 
EXIT :SKIP OVER SUPPORT ROUTINES & STORAGE 
BR TST17 >:EXIT THIS TEST 
FRRCNT: 0 
NUMBER: 0 


CVDLAAO 
CVDLAB. 


SSSRoN 


38 


MONINIMYNIN INN DM IMNNIN INN NNNNony 
pS ed aed cad ad ed nd ond eed ed eed 
WONAULSWN—O 


PVAPIAAASIVIAI 


Nm 
—_ 


252 


2530 


MPonshorenenenonensrnnrvenrn 
MAA) 
SSVEARUG= 


FEES 
Wu—Ooo 


p 


DLV11- 
11 


J TEST 
17-NOV~-78 
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001004 
023737 
001411 


013737 
042777 
005237 
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005237 
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005662 
905622 


005662 


000100 


173372 


100000 
005770 


005624 
000100 
005622 


005662 
005662 


000100 


005624 


173414 


173404 


005770 


005770 
005662 


005662 
173332 


005624 


173302 
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5 RRR REAAAAEAAAE REAR EEEEERAREEAARAARARERERAAREREREAR ERE R ERS 


; TRANSMIT INTERRUPT HANDLER 


5 RARER AREER REEREAEREERERERERERARRARARREREARAA RARER ARA RARER ES 


TRAN: 


$130: 


DATA: 


RTI 
0 


BGNSRV TRAN 
IF DATA NE NUMBER AND ERRCNT EQ #0 THEN 


DATA, NUMBER 
$130 
ERRCNT 
$130 
; SHIP OUT WORD 
LET @TBUF := DATA 
DATA, aT BUF 
END IF 
;STOP INTERR, NOT EXER DOUBL BUFFER 
LET @TCSR := @TCSR CLR.BY AXMITIE 
#XMITIE,@TCSR 
ENDSRV 


STARR EEE ERRATA ARERR EAE REEE RARER AREER ARERR RRR RARE 


RECEIVER INTERRUPT HANDLER 


FLERE REAARARERAREREE REE ERAEERERAEREREORAARERERERARRA ANE EEE 


REC: 


$151: 


$132: 


BGNSRV REC 
:GET CHAR 
LET RHLD := @RBUF 
@RBUF ,RHLD 
; CHECK ERROR 
IF #ERROR SETIN RHLD OR RHLD NE DATA THEN 
#ERROR ,RHLD 
$131 
RHLD,DATA 
$132 
:STOP ALL INTERR PROC & GET OuT 
LET DATA := NUMBER 
NUMBER ,DATA 
LET @RCSR := @RCSR CLR.BY A#RCVRIE 
ARCVRIE,@RCSR 
LET ERRCNT := ERRCNT + #1 
ERRCNT 
ELSE 
$133 
LET DATA := DATA + #1 
DATA 
IF DATA EQ NUMBER THEN 
DATA,NUMBER 
$134 
LET @RCSR := @RCSR CLR.BY AROVRIE 
#MRCVRIE,@RCSR 


SEQ 0061 


K_ 5 
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17-NOV-78 TEST DATA WRAP AROUND: INTERRUPT MODE 
228 005756 ELSE 
559 0057 000403 sie $135 
560 0057 $134: ) 
561 sALLOW NEXT XMIT INTERR 
206 005760 LET @TCSR := aTCSR SET.BY #xMITIE 
563 005760 052777 000100 173276 BIS AXMITIE,@TCSR 
2544 005766 END IF 
2505 005766 $135: 
566 005766 ENDIF 
567 005766 $133: 
005766 ENDSRV 
$2 9 005766 000002 RTI 
2571 005770 9000000 RHLD: OU 
2572 
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023727 
001002 


000137 
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052777 
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006502 


013604 


006502 


000125 


177777 
001260 
000200 


000500 
012446 


00000% 


001110 


173172 


173166 


LF 
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TEST DATA WRAP AROUND: 


716 


INTERRUPT MODE 


eR EKER EEE EEK EKER EEE 


; *TEST 17 


_ 
** 
** 
e 
S 


rST17: 


$136: 


$137: 


$141: 
$140: 


TEST BREAK DETECTION LOGIC 
KNOWN CHAR W 


TRANSMIT 


wt BREAK SET 


AND COMPARE RECEIVED WwW 


WITH 0. 
FRAMING ERROR WILL ALSO BE CHECKED 
IF ERROR BITS ARE ENABLED. 


#10,$TIMES 
#17, $TESTN 


— 
ABRK , SUSWR 
$137 


TST20 
$140 


CONSOL , # TRUE 
$141 


TST20 


#643 ,$_LPERR 
ERRCHK 
A#BREAK ,aTCSR 
#125, aTBUF 
R5,—-(SP) 


WSET, -(R5) 


(SP)+,R5 
$i/2 


KEKE EEE EEE KEK EKER 


7:D0_ 10 ITERATIONS 
;;SET TEST NUMBER I 
;DONT DO THIS TEST 
sENABLED, ELSE WILL 
;DO IF BREAK ‘DETECTI 
IF AWRAP NOTSETIN $US 


APT MAIL 6OX 
F *BREAK* GENERATION 
HALT 


N 

I 
TO CONSOLE ODT. 

TION’ 

WR 


IS ENABLED. 
OR ABRK NOTSETIN SUSWR THEN 


sEXIT TEST 
ELSE 


IF CONSOL EQ #TRJE THEN 


:CAN'T TEST CONSOLE 
sEXIT TEST 

ENDIF 

BGNSUB 


LET ERRCHK := #0 ; CLEAR ERROR WORD 


BREAK BIT 
= @TCSR SET.BY #BREAK 


NON-ZERO CHAR. 
:= #125 


;SET 
LET @TCSR : 


%s!* 


LET aTBUuF 


;WAIT FOR DONE 
CALL TIMER IN <#500,4RCVRDONE .RCSR ,#SET> 


IF ERROR THEN 
; RECIEVER DONE DID NOT SET 


SEQ 0063 


orn 


ROR RRO 


NOV! 


PRRRE SS RSS SRS SRR RRS PERE RoR onCUBeE REE RAE Ras 


; 


v 
== 


SE FERREERRRRESER STRRREEES 
S RESSSSSENNNNER VSSKEFEKKN 


Rae 


006214 


VileJ 


TEST 
104115 


017700 
105700 
001403 


052737 


032700 
001003 


052737 


032737 
001421 


032737 
001007 
032700 
001003 


052737 


000406 


032700 
001403 


052737 


000005 
032777 
001401 


173122 


000001 


020000 


000002 


000002 


000004 


010000 


000010 


170000 


MACY11 30G(1063) 
17-NOV-78 09:38 


006500 


006500 


091220 


001220 


006500 


005622 


173012 
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$142: 


$143: 


$144: 


$147: 


$146: 


$151: 
$150: 
$145: 


ERROR 


115 


@RBUF ,RO 

RO 

$143 
#B1TO,ERRCHK 
#FRERR ,RO 
$144 
#B1T1,ERRCHK 
APARITY , SUSWR 
$145 


#MEVENODD , SUSWR 
$146 


#PERR ,RO 
$147 


#B1T2,ERRCHK 


$150 
#PERR ,RO 
$151 


#8113, ERRCNT 


+ 70000 , @RBUF 


a 
1$ 


SEQ 0064 
ERRHRD 115 
ENDIF 
LET RO := @RBUF 


IFB RO NE #0 THEN 
BRFAK DID NOT EQUAL 0 
LET ERRCHK := ERRCHK SET.BY #BITO 
END IF 
IF MFRERR NOTSETIN RO THEN 


LET ERRCHK := ERRCHK SET.BY #BIT1 
ENDIF 
IF #PARITY SETIN SUSWR THEN 


;0DD PARITY ENABLED 
IF #EVENODD NOTSETIN SUSWR THEN 


;BREAK SHOULD GENERATE A PARITY ERRO 
IF #PERR NOTSETIN RO THEN 


;NO PAR ERROR WHEN THERE SHOULD 
LET ERRCHK := ERRCHK SET.BY #BIT2 
ENDIF 


ELSE 
IF #PERR SETIN RO THEN 


LET ERRCNT := ERRCNT SET.BY 4B1T3 
END IF 
END IF 


END IF 


BRESET ;CLEAN UP 








;BREAK DID NOT SET 


N 5 
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2685 104033 ri ERROR 33 RESET DID NOT CLEAR ERROR,FR ERR,OR PERR IN RBUF 
687 . 
2688 006 IF WBITO SETIN ERRCHK THEN 
BB9 006254 032737 000001 006500 BIT  #BITO. ERRCHK 
590 7 001401 BEQ $152 
65 ERRHRD 121 ;BREAK ERROR 
992 O06g64 106121 ERROR 121 
6S ENDIF 
4S ; $152: 
65 bO66 IF WBIT1 SETIN ERRCHK THEN 
596 906266 032737 000002 006500 BIT  #BIT1,ERRCHK 
%: 6974 001401 BEQ «$153 
2698 006 ERRHRD 122 ; FRAMING ERROR 
699 006276 104122 ERROR 122 
if ENDIF 
1 $153: 
02 IF WBIT2 SETIN ERRCHK THEN 
032737 000004 006500 BIT  #BI1T2, ERRCHK 
; 001401 | BEQ s:$ 154 
3 ERRHRD 235 
% 006310 104235 ERROR 235 
:NO PARITY ERROR WHEN 
Dg “THERE SHOULD BE 
05 1 ENDIF 
7 9 1 $154: 
71 IF #BIT3 SETIN ERRCHK THEN 
rg 12 032737 000010 006500 BIT  #BIT3, ERRCHK 
71 001401 BEQ «$155 
714 2 ERRHRD 236 
715 104236 ERROR 236 
716 ;PARITY ERROR SHOULD NOT HAVE 
71 “OCCURED WITH EVEN PARITY 
718 “ENABLED AND BREAK SET 
71 4 ENDIF 
4 $155: 
? 4 ENDSUB 
728 4 BGNSUB 
? 4 012737 006332 001110 MOV #64, SLPERR 
4 :SET BREAK BIT 
006332 LET aTCSR := aTCSR SET.BY #BREAK 
052777 000001 172724 BIS  #BREAK,aTCSR 
CALL TIMER IN <#500,MBREAK,TCSR,#SET> 
10546 MOV _—R5, = (SP) 
12765 177777 MOV —« #SET,-(R5) 
13745 001264 MOV TCSR,-(R5) 
12745 00000 MOV -« ABREAK,-(R5) 
12745 000500 MOV «#500, -(R5) 
737 012446 JSR PC TIMER 
12605 MOV —s- (SP) +, R5 
:DID IT SET? 
p06 370 IF .ERROR THEN 
70 103001 BCC «$186 
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ERROR 
$156: 


$157: 


$160: 


BR 
ERRCHK: .WORD 0 


21 


WBREAK ,aTCSR 
R5,-(SP) 
#100. .-(R5) 
PC, WAIT 
(SP)+,R5 
@RBUF ,RO 


#125,aTBUF 


(SP)+,R5 
$157 


230 


@RBUF ,4125 
$160 


231 


ENDSUB 
EXIT 
szEXIT THIS TEST 


TST20 


SEQ 0066 


ERRHRD 21 

ENDIF 
LEAR BREAK BIT 

LET atcsk « = @TCSR CLR.BY #BREAK 

WAITMS 100. 

:READ RBUF TO CLEAR ERRORS & REC DONE 
LET RO := @RBUF 

:SEND CHAR 
LET aTBUF := #125 


WAIT FOR DONE BIT 
CALL TIMER IN <4#500,ARCVRDONE ,RCSR ASE T> 


IF .ERROR THEN 
;RECEIVER NEVER CAME READY 
ERRHRD 250 


ENDIF 


WAS CHAR icy BREAK RECEIVED 
IFB aRBUF NE #125 T 


;CHAR AFTER BREAK NOT RECEIVED CORRECTLY 


ERRHRD 231 
ENDIF 
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REE EEEREEEKEEKKEEKEKEEKEEKKEKEEEKEAEEKEERER EEE 


**TEST 20 


5 REAR AREEAR REE EEE EEE AAER AERA ARERR REAR ARERR ARR R ARR EER 


TST20: 


$162: 


$164: 
$163: 


$161: 


$165: 


SCOPE 
MOV 
BIT 
BEQ 
CMP 
BNE 
TYPTXT 
BR 


TST 
BNE 
TYPTXT 
INC 


TYPTXT 


NOT A TEST = SEND BACK TO LOOP 


#1,$TIMES :;DO 1 ITERATION 
IF ABIT12 SETIN @SWR THEN 
#B1T12,aSWR 
$161 
IF PHASE2 EQ #TRUE THEN 
“+, lalla 
<<CRLF>/ x* PHASE 2 — *«*/<CRLF >> 
$163 
IF P1CNT EQ #0 THEN 
ANd 
<<CRLF>/ x* PHASE 1 SUMMARY **/<CRLF>> 
LET PICNT := PICNT + #1 
P1CNT 
ENDIF 
ENDIF 
<*CSR: *> 
DLADD 


SERTTL 
,SCRLF 
ENDIF 
SERTTL : RESET FOR NEXT DEVICE/PASS 
IF PHASE2 EQ #ATRUE THEN 
PHASE2 , 4 TRUE 
$165 
LET PHASE2 := 40 
PHASE 2 
LET SUNIT := SUNIT + 41 
SUNIT 
ENDIF 
LGOP : BACK UP TO THE BEGINNING 


SEQ 0067 


D 6 
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CVDLAB.P11 17-NOV-78 09:38 T20 NOT A TEST = SEND BACK TO LOOP SEQ 0068 
28 
2839 007000 MODTST: 
2840 Lee eee et Ease 
841 :*TEST 21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 
84 ;* INTERRUPTS WILL BE Riz ee ON ALL ACTIVE CHANNELS. 
284 :* RECEIVER AND TRANSMITTER. THEN WE'LL CHECK TO 
2844 :* SEE IF THEY INTERRUPTED IN THE ASSIGNED SEQUENCE. 
2845 SRI IOI IOI ICIOITIOIIOIOIEI IO IIIT I TAA II III ASIII SS SSS SATE 
2846 007000 000004 TST21: SCOPE 
847 007002 012737 900001 001160 MOV #1,$TIMES 28e 1 ITERATION 
9: 007010 012737 O0C0021 001200 MOV #21,$TESTN :SET TEST NUMBER IN APT MAIL BOX 
2850 
2851 :CLEAR OUT INTERRUPT TABLE 
2852 007016 LET RO := #INTRTABLE 
2853 007016 012700 007744 MOV #INTRTABLE ,RO 
2854 007022 REPEAT 
2855 007022 $166: 
2856 007022 LET (RO)+ := 40 
2857 007022 005020 CLR (RO) + 
2858 007024 UNTIL RO EQ #TABEND 
2859 007024 020027 007764 CMP RO, ATABEND 
Saee 007030 001374 BNE $166 
2 :SET PRIORITY TO 7 
Seer 007032 SETPRI #PR7 
2865 :SET UP ALL INTERRUPT VECTORS 
2866 007044 LET RO := DLVEC 
at 007044 013700 001256 MOV DLVEC,RO 
868 007050 LET R1 := ARCVROSRV 
2869 007050 012701 007424 MOV ARCVROSRV,R1 
2870 007054 REPEAT 
2871 007054 $167: 
2872 007054 LET (RO)+ := R1 
28 007054 010120 MOV R1, (RO) + 
2874 007056 LET (RO)+ := APR7 
2875 007056 012720 000340 MOV #PR7,(RO)+ 
2876 007062 LET R1 := R1 + #30 
2877 007062 062701 000030 ADD #30,R1 
2878 007066 UNTIL R1 EQ ASRVEND 
2879 007066 020127 007724 CMP R1 .ASRVEND 
Seas 007072 001370 BNE $167 
2882 :ENABLE INTERRUPTS ON ALL ACTIVE LINES, 
Saaz =ALSO, XMIT CHAR'S TO PRIME RECEIVERS 
2885 :COPY MASK 
2886 007074 LET CHMASK := MASK 
2887 007074 013737 014162 007764 MOV MASK, CHMASK 
2888 007102 LET CHCNT := 40 
2889 007102 005037 007766 CLR CHCNT 
2890 007106 LET RO := DLADD 
2891 007106 013700 001254 MOV DLADD ,RO 
2892 007112 REPEAT 


2893 007112 $170: 


RE 


beREE 
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062700 
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004737 
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001402 
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000001 
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000200 
000500 
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007764 


000002 


000003 


BIT 
BEQ 


BIS 
ADD 


BIS 


MOV 


SUB 


ASR 
INC 


TST 
BEQ 


INC 
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#B1T0, CHMASK 
$171 

#B1T6, (RO) 
#4 ,RO 

#B1T6, (RO) 


#252,2(RQ) 


PC, TIMER 
(SP)+,R5 


$172 


23 


#10,R0 


CHMASK 
CHCNT 
CHCNT 43 
$175 
PC,TSTCON 
CONSOLE 
$174 


CHCNT 


IF #BITO SETIN CHMASK THEN 
;SET RCSR IE 
LET (RO) := (RO) SET.BY ABIT6 
LET RO := RO + &4 
sSET XCSR IE 
LET (RO) := (RO) SET.BY ABIT6 
;LOAD XBUF 
LET 2(RO) := #252 


:GO BACK TO RCSR 
LET RO := RO — &4 


;LOOK FOR RCVR DONE 
CALL TIMER IN <#500,4RCVRDONE ,RO,#SET> 


:DID IT SET IN TIME? 
IF .ERROR THEN 


;RCVRDONE DID NOT SET IN RCSR 
ERRHRD 23 


ENDIF 
END IF 


LET RO := RO + #10 


:SETUP FOR NEXT CHANNEL 
LET CHMASK := CHMASK SHIFT -1 


LET CHCNT := CHCNT + #1 
IF CHCNT EQ #3 THEN 


CALL TSTCON 
IF CONSOLE NE #0 THEN 


LET CHCNT := CHCNT + #1 


ENDIF 


CVDLAAO EVI I= TEST 
CVDLAB.P11 


2950 
2951 


$326 
295 

2954 
2955 
2956 
2957 
2958 
2959 


2961 


SEESES EEE RP SS SBS RaR aR ER SS SS SSS Sea e Rar eReS 


MACY11 30G(1063) 
17-NOV-78 09:38 


023727 007766 000004 
001317 


012704 


000005 


005037 


005037 
012700 


012701 
013737 


007744 


007772 


007770 
007744 
007746 
014162 
007764 
007772 
007764 
013530 
013604 
007772 
007772 
007772 
007772 


007764 


177777 


17-NOV-78 09:39 PAGE A 
T21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


$173: 


2$: 


3$: 
4$: 


ENDIF 


UNTIL CHCNT EQ #4 


CMP CHCNT ,&4 
BNE $170 


ALL ate REC 
“IN CONTENTI 


INTERRUPTS SHOULD BE 


RECEIVE INTERRUPTS HAVE PRIORITY 
NTERRUPTS. 


;OVER XMIT IN 
LOW C 
; THEREFORE, 


LS HAVE ty te OVER HIGH 
ONCE CPU PRIORITY IS LOWERED, 
> INTERRUPTS S/B_IN 


CHANNELS. 


=CHANNEL IDENTIFIER TABLE (RCHO:) 


MOV #INTRTABLE ,R4 


SETPRI #PRO 


RESET 


CLR TCNT 


CLR PRIERR 


MOV #INTRTABLE ,RO 
MOV phigh i R1 
MOV MASK , CHMASK 

ASR CHMASK 

BCC 2$ 

INC TCNT 

TST CHMASK 

BNE 1$ 


JSR PC,TSTCON 
TST ” ie 


BEQ 

DEC TCNT 

ASL TCT 

DEC TCNT 
BEQ 5$ 

CMP TCNT ,#=1 
BEQ 


CMP (R1)+, (RO)+ 
4$ 


3 SEY y POINTER FOR SERVICE ROUTINE 
TABLE 


LET R4 := MINTR 


;LET EM GO 


:DISABLE ALL INTERRUPTS 
BRE SET 
LET TCNT := 40 


:CLEAR ERR FLAG 
LET PRIERR := 40 


LET RO := AINTRTABLE 
;SETUP EXPECTED VALUE 
LET RI := #INTRTABLE+2 


:GET # OF CHANNELS IN TCNT 

:GET TOTAL CHANNEL CT 

; CORRECT CHANNEL CT FOR CONSOLE 
APPLY X2 MULT FACTOR 


ALL 1°S ? 
“BR IF YES 
;R1 


-RO 
“BR IF R1I>RO 


SEQ 0070 


6 
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SEQ 0071 


CVDLAAO Devt 
CVDLAB.P1 17=-NOV~78 09:38 T21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 
$008 007406 005237 007770 INC PRIERR sELSE ERROR 
3008 007412 S$: 
3009 007412 IF PRIERR NE #0 THEN 
3010 007412 005737 007770 TST PRIERR 
3011 7416 001401 BEQ $175 
as 7420 ERRHRD 250 
3013 007420 104250 ERROR 250 
3014 : CHANNELS DID NOT Ra ACCORDING TO 
3015 “ASSIGNED PRIORITY. THE BYTE ENTRIES 
3016 : IN INTRTABLE: SHOULD BE IN THE CEpER 
3017 = THAT THEY APPEAR IN THE CHANNEL 
3018 “TABLE . (EXCLUDING CHANNELS NOT active? 
3019 007422 END IF 
3020 007422 $175: 
3021 
3022 007422 EXIT 
3023 007422 000565 BR TST22 :;EXIT THIS TEST 
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007726 
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TO TC RCCECCACAAZACASESEASASASESAAS ELAS E REE RRR RRR RRR ARR RRR RRA RR SSDS SSS, 


START OF SERVICE ROUTINES 


2 RRA ERAAAAERAAAAEEAARERAEE EEE RARAARAEAERARRARAEA RARER ARAN A ARRAS 


BGNSRV RCVROSRV 


ee 
-* 
e 


RCVROSRV: 


MOV 


MOV 


XMITOSRYV: 


MOV 


MOV 
ADD 


BIC 
RTI 


RCVRISRYV: 


MOV 


MOV 
ADD 


BIC 
RT] 


XMITISRY: 


RCHO, (R4&)+ 


RCSR, TEMP 
#0, TEMP 


4B1T6,aTEMP 


TCHO, (RS) + 


RCSR, TEMP 
44,TEMP 


#BIT6,aTEMP 


RCH1, (R4)+ 


RCSR, TEMP 
#10, TEMP 


#B1T6,aTEMP 


ENDSRV 


BGNSRV 


ENDSRV 


BGNSRV 


ENDSRV 


BGNSRYV 


;PUT INTR IDENTIFIER IN INTRTABLE 
LET (R4)+ := RCHO 


;GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #0 


;ONE INTR IS ALL WE WANT FROM HERE 
LET @TEMP := @TEMP CLR.BY ABIT6 


XMI TOSRV 


;PUT INTR IDENTIFIER IN INTRTABLE 
LET (R4)+ := TCHO 


;GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #4 
ONE INTR IS ALL WE WANT FROM HERE 
LET @TEMP := @TEMP CLR.BY #BI~6 


RCVRISRV 


;PUT INTR IDENTIFIER IN INTRTABLE 
T (R4)+ := RCHI 


;GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #10 


ONE INTR IS ALL WE WANT FROM HEF.c 
LET @TEMP := @TEMP CLR.BY 4BI1T6 


XMITISRV 


SEQ 0072 
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:PUT INTR IDENTIFIER IN INTRTABLE 
1 007534 LET (R4)+ := TCHI 
007534 013724 207736 MOV TCH1, (R4)+ 
:GENERATE CSR ADDRESS 
007540 LET TEMP := RCSR 
5 007540 013737 001260 007774 MOV RCSR, TEMP 
007546 LET TEMP := TEMP + #14 
7? 007546 062737 000014 007774 ADD #14, TEMP 
3088 :ONE INTR IS ALL WE WANT FROM HERE 
007554 LET @TEMP := aTEMP CLR.BY #BIT6 
007554 042777 000100 000212 BIC #B1T6,aTEMP 
1 0075 ENDSRV 
; 007 000002 RTI 
30% 007564 BGNSRV RCVR2SRV 
007564 RCVR2SRV: 
:PUT INTR IDENTIFIER IN INTRTABLE 
007564 LET (R4)+ := RCH2 
007564 013724 007730 MOV RCH2, (R4)+ 
3099 :GENERATE CSR ADDRESS 
100 007570 LET TEMP := RCSR 
3101 007570 013737 001260 007774 MOV RCSR, TEMP 
3108 007576 LET TEMP := TEMP + #20 
310 007576 062737 000020 007774 ADD #20, TEMP 
104 :ONE INTR IS ALL wE WANT FROM HERE 
105 007604 LET @TEMP := aTEMP CLR.BY A#BIT6 
106 007604 042777 000100 000162 BIC #8116, aTEMP 
107 007612 ENDSRV 
$156 007612 000002 RT] 
3110 007614 BGNSRV XMIT2SRV 
3111 007614 XMIT2SRV: 
3112 :PUT INTR IDENTIFIER IN INTRTABLE 
311 007614 LET (R4)+ == TCH2 
3114 007614 013724 007740 MOV TCH2, (R4)+ 
3115 ; GENERATE CSR ADDRESS 
3116 007620 LET TEMP := RCSR 
$117 007620 013737 001260 007774 MOV RCSR, TEMP 
118 007626 LET TEMP := TEMP + #24 
119 007626 062737 000024 007774 ADD #24, TEMP 
120 :ONE INTR IS ALL WE WANT FROM HERE 
121 007634 LET @TEMP := aTEMP CLR.BY #BIT6 
128 007634 042777 000100 000132 BIC #B1T6,aTEMP 
3123 007642 ENDSRV 
3136 007642 000002 RTI 
3126 007644 BGNSRYV RCVR3SRV 
3127 007644 RCVR3SRV: 
128 :PUT NTR. IDENTIFIER IN INTRTABLE 
1¢9 007644 LET (R4)+ := RCH3 
1 007644 013724 007732 MOV RCH3, (R4)+ 
131 :GENERATE CSR ADDRESS 
13¢ 007650 LET TEMP := RCSR 
133 007650 013737 001260 007774 MOV RCSR, TEMP 
134 007656 LET TEMP := TEMP + #30 
3135 007656 062737 000030 007774 ADD #30, TEMP 


6 
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SEQ 0074 
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3136 ;ONE _INTR iS ALL WE WANT FROM HERE 
3132 007664 LET @TEMP := @TEMP CLR.BY #BI1T6 
31 007664 042777 100100 000102 BIC #B1T6,aTEMP 
3139 007672 ENDSRV 
24 007672 000002 RT! 
a10% 007674 BGNSRV XMIT3SRV 
3143 007674 XMIT3SRV: 
3144 ;PUT at IDENTIFIER IN INTRTABLE 
3145 007674 LET (R4)+ := TCHS 
3146 007674 013724 007742 MOV TCHS, (R4)+ 
3147 ;GENERATE CSR ADDRESS 
3148 007700 LET TEMP := RCSR 
3149 007700 013737 001260 007774 MOV RCSR, TEMP 
3150 007706 LET TEMP := TEMP + #34 
3151 007706 062737 000034 007774 ADD #34, TEMP 
<4 ; ONE _ IS ALL WE WANT FROM HERE 
3153 007714 LET @TEMP := @TEMP CLR.BY A#BIT6 
3154 007714 042777 000100 000052 BIC 4#B1T6,aTEMP 
3155 007722 ENDSRV 
3156 007722 000002 RT] 
3157 007724 SRVEND: 
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3 ** CHANNEL fg EB TABLE ** 
; THE ENTRIES FROM THIS 

; TABLE ARE PLACED IN THE INTRTABLE 
:IN THE ORDER THAT THE INTR'S 
OCCUR. —_— NON-ACTIVE CH‘S) 


007724 000000 RCHO: WORD 
007726 000001 RCH1:  .WORD 1 
007730 000002 RCH2:  .WORD 2 
007732 000003 RCH3:  .WORD 3 
34 000010 TCHO: .WORD 10 
36 000011 TCH1: .WORD 11 
007740 000012 TCH2:  .WORD 12 
007742 000013 TCHS: .WORD 15 


:THIS TABLE WILL CONTAIN ENTRIES 
sREPRESENTING EACH INTR IN THE ORDER 
>THAT IT OCCURED 

S/B IN THE ABOVE ORDER 


007744 000010 INTRTABLE : -BLKwW 8. 

007764 TABEND : 

007764 000000 CHMASK: .WORD 0 :BITS 3-0 INDICATE WHICH CH'S ARE ACTIVE FOR THIS TEST 
007766 000000 CHCNT: .WORD 0 ; CHANNEL COUNTER 

007770 000000 PRIERR: .WORD 0 ERROR ares’ CONTAINS NO. OF INTR OUT OF ORDER 

007772 000000 TCNT: WORD Q ; TABLE PASS CIR 

007774 000000 TEMP WORD 0 :FOR SERVICE “ROUTINES 
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BLRARRAVLS BHIVSARANVSSHISALER ISVS 


or 


2° 
3 


me toe ae See es Be 


Beee pees reeese & 
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005037 


012700 


005020 


020627 
001374 


012701 
013700 


010120 
012720 
062701 
010120 
012720 
062701 


020127 
001363 


000001 
000022 


012366 


011360 


012360 


010660 
007256 


000340 
000054 


000540 
000044 
011560 
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RARER EAR EAE EHHEEEEE 


“*TEST 22 


«Be Be Be Be Be 
@epeeee ee 


$176: 


$177: 


NOTE: 


TST22: SCOPE 
MOV 


TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 
N NABLE TS ON ALL CHANNELS 


I 
DATA PATERN VIA 


INTERRUP ELS 
INTERRUPTS AND RECORD THE RECEIVER 


INTR. IN THE RECEIVER STATUS TABLE. 
DOUBLE BUFFERING CANNOT BE TESTED AT ITS MAX SPEED 
BECAUSE OF APT CONSIDERATIONS. I.E. APT SENDS 


*BREAKS' WHICH 
THE XMIT IE IS 


CAUSE OVERRUN ERRORS. THEREFORE 
NOT ENABLED AGAIN UNTIL THE RECVR 


HAS OBTAINED THE PREVIOUS WORD. 


eo 
RK REE EERE EE 


#1 .STIMES 
MOV #22, $TESIN 
CLR ERWRD 

MOV #CHOTAB,RO 
CLR (RO) + 

CMP RO. #STATEND 
BNE $176 

MOV #ROSRV,R1 
MOV DLVEC.RO 
MOV R1,(RO)+ 
MOV #PR7, (RO) + 
ADD #54.R1 

MOV R1, (RO) + 
MOV #PR7,(RO)+ 
ADD #44 ,R1 

CMP R1,#SEREND 
BNE $177 

SETPRI #PR7 


::DO0 1 ITERATION 

37SET TEST NUMBER IN APT MAIL BOX 
;CLR ERROR WORD 

LET ERWRD := #0 


’ 


:CLEAR OUT RECEIVER TABLES 
LET RO := ACHOTAB 


REPEAT 
LET (RO)+ := #0 
JNTIL RO EQ #STATEND 


;SET UP ALL VECTORS 


LET R1 := #ROSRV 
LET RO := DLVEC 
REPEAT 


LET (RO)+ := RI 
LET (RO)+ := #PR7 
LET RI := R1 
LET (RO)+ := RI 
LET (RO)+ := #PR7 
LET R1 := R1 + #44 
UNTIL R1 EQ #SEREND 


:SET PRIORTY TO 7 


SEQ 0076 


alae 


VOLAB.P11 
3245 
46 
47 
48 010110 
49 010110 
50 
51 010114 
3252 010114 
$52 010122 
54 010122 
3255 
$525 010126 
57 010126 
3258 010132 
3259 010132 
3260 010132 
1 010132 
010140 
326 
3264 010142 
3265 010142 
3266 
3267 010146 
3268 010146 
3595 010152 
A 010152 
72 010156 
73 010156 
74 010162 
75 010162 
o6 010166 
010166 
3278 010170 
3279 010170 
3280 010170 
81 010174 
oS 010174 
010174 
010174 
85 
3286 
87 ai 
se 
: He 
4 OiaSia 
10214 
010 
He 
01 
OI0s 2 
10232 
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MOV 


MASK , CHMSK 


CHCTR 


ACTCH 


#B1T0,CHMSK 
$201 


ACTCH 


#B1T6, (RO) 


#4 RO 


#BIT6, (RO) 


#4 ,RO 
$202 


#10,R0 


CHMSK 


CHCTR 


CHCTR,A#3 
$203 


PC,TSTCON 
CONSOLE 
$204 


CHCTR 


ENABLE INTR'S ON ALL ACTIVE LINES 
; THIS MODULE 
LET RO := DLADD 


; INITIALIZE 
LET CHMSK := MASK 


LET CHCTR := #0 


sACTIVE CHANNEL CTR 
LET ACTCH := #0 


REPEAT 
IF MBITO SETIN CHMSK THEN 
3:4 OF ACTIVE CH 
LET ACTCH := ACTCH + #1 


;SET RCSR IE 
LET (RO) := (RO) SET.BY #BIT6 


LET RO := RO + 44 


:SET XCSR IE 
LET (RO) := (RO) SET.BY #BIT6 


LET RO := RO + #4 
ELSF 


LEi RO := RO + #10 
ENDIF 
LET CHMSK := CHMSK SHIFT -1 


LET CHCTR := CHCTR + #1 
IF CHCTR EQ #3 THEN 


CALL TSTCON 
IF CONSOLE NE #0 THEN 


LET CHCTR := CHCTR + #1 


ENDIF 


SEQ 0077 
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1 
010 ENDIF 
01 $203: 
1 - UNTIL CHCTR EQ 44 
1 003767 012362 000004 CMP CHCTR,A4 
10240 0013 BNE $200 
INIT BUFFER POINTERS FOR SERVICE ROUTINES 
010 rk: LET RO := #CHOTAB 
10242 012700 011360 MOV #CHOTAB,RO 
19 46 LET R1 := ACHITAB 
10246 012701 011560 MOV #CH1TAB,R1 
010 25 LET R2 := #CH2TAB 
010252 012702 011760 MOV #CH2TAB,R2 
g18 56 LET R3 := #CH3TAB 
10256 012703 012160 MOV #CH3TAB,R3 
sFILL XBUF = 
= FROM TMPO THRU TMP3E 
= START WORD CH Mo ALWAYS 0 
81930 LET TMPO := #0 
010262 005037 012372 CLR TMPO 
2d TO INDEX 
019568 LET R4 := 40 
010266 005004 CLR R4 


;PTR TO TABLE TO BE FILLED 
MPOE 


LET RS := AT 
012705 012374 MOV ATMPOE ,R5 
REPEAT 
$205: 
IF #BITO NOTSETIN $SUSWR THEN 
Opera 000001 001220 BIT #B1TO,$USWR 
1005 BNE $206 
LET (R5)+ := TABL7(R4) 
016425 012426 MOV TABL7(R4), (R5)+ 
LET (R5S)+ := TABL7(R4) 
016425 012426 MOV TABL7(R4), (RS) + a 
LSE 
000404 BR $207 
$206: 
LET (RS5)+ := TABLB(R4) 
016425 012436 MOV TABL8(R4), (RS) + 
LET (R5)+ := TABL8(R4) 
016425 012436 MOV TABL8&(R4), (R5)+ 
ENDIF 
$207: 
LET RG := R4 + #2 
062704 000002 ADD #2,R4 
0 7 000010 CMP R4.410 OR oe Fe a 
89 $86 BNE $205 
‘ : INIT TMP4 
“WILL BE DECR BY XMIT SERVICE ROUTINES TILL O 
' LET T TMP4 := ACTCH 
013737 012364 012414 MOV ACTCH, TMP4 
:SET PRIORITY TO 0 
SETPRI 4PRO 
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005737 
001375 
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000005 


005037 
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032737 
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TMP4 
$210 


#100000, TMP4 


TMP4 
TMP4 
$211 


TMPO 

TMPOE , TMP 1 
TMP1E , TMP2 
TMP2E , TMP 


CHCTR 
MASK , CHMSK 
#B1T0, CHMSK 
$213 
CHCTR,RO 

RO 
TABL6(RO) ,R? 
RO 


TMPO(RO) ,R1 


| REPEAT 


UNTIL TMP4 EQ #0 


sWAIT FOR RECV'S TO CATCH UP 
LET TMP4 := #100000 
REPEAT 

LET TMP4 := TMP4 - #1 


UNTIL TMP4 EQ #0 


;DISABLE ALL INTR'S 


BRESET 
; CK RECEIVER TABLE 
sRESET TMPO,1,2.3 
LET TMPO := #0 
LET TMP1 := TMPOE 
LET TMP2 := TMPIE 
LET TMPS := TMP2E 
: INITIALIZE 


LET CHCTR := #0 
LET CHMSK := MASK 
REPEAT 
IF #BITO SETIN CHMSK THEN 


LET RO := CHCTR 


OFFSET TO INDEX (2X) 
LET RO := RO SHIFT +1 


;GET TABLE LOC FOR THAT CH. 
RQ) 


LET R2 := TABL6( 


OFFSET TO INDEX (4X) 
LET RO := RO SHIFT +1 


‘eT EXPECTED STARTING WORD 


R1 := TMPO(RO) 


SEQ 0079 
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$214: 


$215: 


$216: 


$217: 
$215: 


ADD 


#2,R0 


TMPO (RO) ,R3 


#B1T15, (R2) 
$215 
#B1T8,ERWRD 


(R2) ,R1 
$216 


ERWRD 


CHCTR 
CHMSK 
CHCTR,AS3 
$220 


PC, TSTCON 
CONSOLE , #7 RUE 
$221 


CHCTR 


LET RO := RO + #2 

3;GET MAX _WORD FOR THAT CH. 
LET R3 := TMPO(RO) 

REPEAT 


IF #BIT15 SETIN (R2) THEN 


LET ERWRD := ERWRD SET.BY #B1T8 
ENDIF 


CHECK FOR DATA COMPARE ERROR 
IFB (R2) NE R1 THEN 


LET ERWRD := ERWRD + #1 
ENDIF 

;BUMP EXPECTED DATA WORD 

LET R1 := R17 + #1 

; BUMP TABLE 

LET R2 := 2. . #2 


UNTIL R1 EQ R3 OR ERWRD NE #0 


END IF 
LET CHCTR := CHCTR + #1 
LET CHMSK := CHMSK SHIFT -1 
IF CHCTR EQ #5 THEN 


CALL TSTCON 
IF CONSOLE EQ #TRUE THEN 


T 
CHCTR := CHCTR + #1 


SEQ 0080 
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79 010640 001401 
3481 010642 
eat 010642 104270 
3485 010644 
3484 010644 
3485 010644 
3486 010644 105737 
3487 010650 001401 
3488 
3489 010652 
3490 010652 104271 
3491 010654 
3492 010654 
349 
3494 
3495 010654 000137 
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$2235: 
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JMP 


UNTIL CHCTR EQ #4 OR ERWRD NE #0 


CHCTR,AS 
$222 
ERWRD 
$212 
IF ABIT8 SETIN ERWRD THEN 
#B1T8,ERWRD 
$223 
sERROR FLAG UP AFTER TRANSFER 
ERRHRD 270 
270 
ENDIF 
IFB ERWRD NE #0 THEN 
ERWRD 
$224 
:DATA COMPARE ERROR 
ERRHRD 271 
271 
ENDIF 
TSTZO sEMIT TEST 
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39 ss © ie HH ie ie He ERE REE EEE REE EEE 
3498 :* START OF SERVICE ROUTINES 

3499 [ISIS IISISIIIIIOIIIOIIIIIIIOIIITIIITIII ITT TT TI TTT III I III IIIS SASSI 
3500 

3501 010660 BGNSRV ROSRV 

3502 010660 ROSRV: 

3505 010660 LET TMP := RCSR 

3504 010660 013737 001260 012370 MOV RCSR, TMP 

3505 010666 LET TMP := TMP + #2 

3506 010666 062737 OC0002 012370 ADD #2, TMP 

3507 010674 LET (RO)+ := @TMP 

3508 010674 017720 001470 MOV aTMP, (RO) + 

3509 010700 IF TMPO NE TMPOE THEN 

3510 010700 023737 012372 012574 CMP TMPO , TMPOE 
3511 010706 001407 BEQ $225 
3512 ;GO TO XCSR 
3513 010710 LET TMP := TMP + #2 
3514 010710 062737 000002 012370 ADD #2, TMP 
3515 ; ENABLE XMIT INTERR 

3516 010716 LET aTMP := aTMP SET.BY #BIT6 
3517 010716 052777 000100 001444 BIS #BIT6,aTMP 
3518 010724 ELSE 
35719 010724 000402 BR $226 
3520 010726 $225: 
3521 zALL DONE 

522 010726 LET TMP4 := TMP4 - #1 

§23 010726 005337 012414 DEC TMP4 
3524 010732 ENDIF 
3525 010732 $226: 
3526 010732 ENDSRV 
32 . 010732 000002 RT] 
35 010734 BGNSRV XOSRV 

35 010734 XOSRV: 
3531 010734 LET TMP := RCSR 

35 010734 013737 001260 012370 MOV RCSR, TMP 

3533 010742 LET TMP := TMP + #6 

3534 010742 062737 000006 072370 ADD #6, TMP 

3535 010750 LET aTMP := TMPO 

3536 010750 013777 012372 001412 MOV TMPO ,aTMP 

3537 010756 LET TMPO := TMPO + #1 

3538 010756 005237 012372 INC TMPO 

3539 io BACK TO XCSR 

3540 010762 LET TMP := TMP - #2 

3541 010762 162737 000002 012370 SUB #2, 1MP 

3542 :DISABLE XMIT INTERRUPTS, 
3543 “NOT EX XER DOUBLE BUFFER ING 
3544 010770 LET aTMP := aTMP CLR.BY #BITé 
3545 010770 042777 000100 001372 BIC #B1T6,aTMP 

3546 010776 FNDSRV 

Eat 010776 009002 RT] 

3549 011000 BGNSRV R1SRV 

3550 011000 RISRV: 

3551 011000 (‘ET TMP := RCSR 
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CVDLAB.P11 17-NOV-78 09: SEQ 0083 
22$ 011000 013737 001260 012370 MOV RCSR, TMP 
55 011006 LET TMP := TMP + #12 
554 011006 062737 900012 012370 ADD #12, TMP 
3555 011014 LET (R1)+ := @TMP 
$229 011014 017721 001350 MOV DTMP, (R1)+ 
557 011020 IF TMP1 NE TMP1E THEN 
3558 011020 023737 012376 012400 CMP TMP 1, TMP1E 
3559 011026 001407 BEQ $227 
3560 ;GO TO XCSR 
3561 0110350 LET TMP := TMP + #2 
se08 011030 062737 O00002 012370 ADD #2, TMP 
320 sENABLE XMIT INTERR 
564 011036 LET @TMP := TMP SET.BY ABIT6 
3565 011036 052777 000100 001324 BIS 4BIT6,aTMP 
3566 011044 ELSE 
3567 011044 000402 BR $230 
3568 011046 $227: 
3569 ;ALL DONE 
3570 011046 LET TMP4 := TMPG - #1 
3571 011046 005337 012414 DEC TMP4 
$256 011052 ENDIF 
35 011052 $230: 
3574 011052 ENDSRV 
329? 011052 000002 RT] 
3577 011054 BGNSRV X1SRV 
3578 011054 K1SRV: 
3579 011054 LET TMP := RCSR 
3580 011054 013737 001260 012370 MOV RCSR,TMP 
3581 011062 LET TMP := TMP + #16 
sent 011062 062737 000016 012370 ADD #16,TMP 
35835 011070 LET @aTMP := TMP) 
3584 011070 013777 012376 001272 MOV TMP1 ,aTMP 
3585 011076 LET TMP1 := TMP1 + #1 
$259 011076 005237 012376 INC TMP 
587 :GO BACK TO XCSR 
588 011102 LET TMP := TMP - #2 
589 011102 162737 000002 012370 SUB #2, TMP 
3590 sDISABLE XMIT INTERRUPTS, 
591 :NOT EXER DOUBLE BUFF 
592 011110 fs LET aTMP := aTMP CLR.BY #BIT6 
3593 011110 042777 000100 001252 BIC #BI1T6,aTMP 
3594 011116 ENDSRV 
$200 011116 000002 RT] 
3597 011120 BGNSRV R2SRV 
3598 011120 R2SRV: 
3599 011120 LET TMP := RCSR 
3600 011120 013737 001260 012370 MOV RCSR,TMP 
1 011126 LET TMP := TMP + #22 
2 011126 062737 000022 012370 ADD #22,TMP 
3603 011134 LET (R2)+ := @TMP 
3604 011134 017722 001230 MOV aTMP,(R2>+ ‘ 
3605 011140 IF TMP2 NE TMP2E THEN 
3%06 011140 023737 012402 012404 CMP T?2, TMP2E 
3607 011146 001407 BEQ $231 
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15 011156 
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5 011174 
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ADD 


BIS 


DEC 


#2, TMP 


#B1T6,aTMP 


$232 


TMP4 


RCSR, TMP 
#26, TMP 
TMP2 ,aTMP 


TMP2 


#2, TMP 


#B1T6,aTMP 


RCSR, TMP 
#32,1MP 
@TMP,(R3)+ 
Hp tf TMP 3E 


#2, 1MP 


#BIT6,aTMP 


$234 


:GO TO XCSR 
LET TMP := TMP + #2 


SENABLE XMIT INTERR 
LET @TMP := aTMP SET.BY #BIT6 


ELSE 
;ALL DONE 
LET TMP4 
ENDIF 
ENDSRV 


:= TMP4 - #1 


BGNSRvV X2SRV 
LET TMP := RCSR 
LET TMP := TMP + #26 
LET @TMP := TMP2 
LET TMP2 := TMP2 + #1 


:GO BACK TO XCSR 
LET TMP := TMP - #2 


:DISABLE XMIT INTERRUPTS, 
;NOT EXER DOUBLE BUFF. 
LET @TMP := aTMP CLR.BY #BIT6 


ENDSRV 


BGNSRV R3SRV 
LET TMP := RCSR 
LET TMP := TMP + #32 
LET (R3)+ := @TMP 
IF TMP3 NE TMPSE THEN 
feT TMP: TMP + #2 


;ENABLE XMIT INTERR 
LET @TMP := @TMP SET.BY #BIT6 


ELSE 


SEQ 0084 


orn 


VOLAAO 
VOLAB.P11 
: 011306 
011306 
011 
011312 
3098 011512 
70 Q1131e2 
71 011312 
f 
75 011314 
74 011514 
75 011314 
76 011314 
3677 011322 
3678 OTT es 
te 0113 
011330 
3681 Ol eee 
be 011336 
3B, 011342 
3685 011342 
7 
011350 
011350 
3690 011356 
91 011356 
92 011360 
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$233: 


$234: 


x 3SRV: 


SEREND: 


DEC 


;ALL DONE 
LET TMP4 := TMP4 - #1 


TMP 
ENDIF 
ENDSRV 
BGNSRV XZSRV 
LET TMP := RCSR 
RCSR, TMP 
LET TMP := TMP + #36 
#36,TMP 
LET @TMP := TMP3 
TMP3,a@7MP 
LET TMP3 := TMP3 + #1 
TMP 3 
— BACK TO XCSR 
LET T := TMP - #2 
#2,TMP 
:DISABLE XMIT INTERRUPTS, 
“NOT EXER DOUBLE BUFF 
LET a TMP := @TMP CLR.BY 43176 
#BIT6,aTMP 
ENDSRV 


SEQ 0085 
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17-NOv-78 09 
so 
94 ;** RECEIVER STATUS TABLES ** | 
:7 BIT wWDS 8 BIT WDS 
3696 011360 000100 CHOTAB: .BLKW 100 : O- 0- 77 
3697 011560 000100 CH1TAB: .BLKW 100 : 40- 77 100-177 
011708 000100 CH2TAB: .BLKW 100 100-137 eon 77 
12160 000100 CH3TAB: .BLKW 100 7140-177 00-377 
01 sh STATEND: 
701 O1 000000 CHMSK: .WORD 0 :MASK OF ACTIVE CHANNELS 
aN 01 $05 000000 CHCTR: .WORD OQ : CHANNEL CTR 
012 00C000 ACTCH: .WORD O :ACTIVE CHANNEL CTR 
704 012366 000000 ERWRD: WORD 0 :ERROR WORD, LOW BYTE IS NO. OF DATA ERRORS 
A :HIGH BYTE INDICATES ERROR FLAG DETECTED 
he 012370 000000 TMP: -WORD 0 > TEMP STORAGE FOR SERVICE ROUTINES 
3709 012372 000000 “MPO: O :START WORD FOR CH 0 
3710 012374 000000 TMPOE: 0O sEND WORD FOR CH 0 
711 315778 000000 T™P1: 0O : START 1 
ng 012400 000000 TMPIE: 0O sEND 1 
71 A ves 000000 T™P2: 0 : START 2 
714 012404 000000 TMP2E: 0 7 END 2 
3715 012406 000000 TPS: 0O START 3 
$518 012410 000002 TMP3E: .BLKW 2 : END 3 
$515 012414 000000 TMP4 . WORD 
3720 012416 011360 TABL6 CHOTAB 
; 1 012420 011560 CH1TAB 
722 012422 011760 CH2TAB 
; 7 012424 012160 CH3TAB 
3725 Or sees 000040 TABL7: 40 :7 BIT WORD TABLE 
37, 0124 000 100 
3727 012432 000140 140 
5769 012434 000200 200 
3 012436 000100 TABL8: 100 :8 BIT WORD TABLE 
731 012440 000200 200 
7 012442 300 300 
4 012444 000400 400 
3735 
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HOWL ONG 
WHI CHBIT 


NOTE:: 


TT OCP EPP ACACAAAAAAAAEAAAAPARERREER EERE EERE EERE RRR RRR RR RRR RRR RRR DSSS 
ROUTINE: TIMER 
THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
IN ANY REGISTER 
INPUTS: 


IMUM AMOUNT OF TIME TO SPEND IN 


THE MAX 
THIS ROUTINE. 


fo a WITH THE BIT(S) SET THAT ARE 


THE USE OF (R5) IS PART OF THE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


CHECKED. 
REG A POINTER TO THE _— TO BE CHECKED 
SETCLR THE DESIRED RESULTS 

EITHER #SET OR CLEAR 


THE ‘'C' BIT IS SET TO INDICATE AN ERROR 
BUT IT IS TESTED BY THE IF.ERROR STATEMENT 


L INKAGE 


e 
SERA RAEAE AER ERAAAARERAAREERERAEAEERARAERERAERRERAERARAERAR ERE RES 


TIMER: 


$237: 


$241: 
MOVB 
$242: 


CMPB 
BNE 


ROUTINE TIMER <HOWLONG,WHICHBIT REG, SETCLR> 


LET 


REG(RS) ,REGSAV 
HOWL ONG (RS), TIMSAV 


FLAG 


LET 


WHI CHBIT (RS) ,@REGSAV 
$241 


HOL DSC 
$242 


#SET,HOLDSC 


HOL DSC, SETCLR(R5) 


$23 


IF 


ELSE 


END] 


> NOW SEE IF THAT WAS WHAT WE WAN 


IFB 


REGSAV := REG(RS) 
TIMSAV := HOWLONG(RS) 
FLAG :B= 40 ; 


SEQ 0087 


: GET POINTER TO REGIST 
: SAVE HOWLONG FOR 
INITIALIZE THE EXIT FLAG 


START OF AN INFINITE LOOP 


; TEST TO SEE_IF WHICHBIT 
WHI CHBIT (RS) 


LET 


LET 
F 


HOLDSC :B= #0 


HOLDSC :B= SET 


NOTSETIN 


IS SET 
@REGSAV THEN 


; REMEMBER THIS 


WANTED 


HOLDSC EQ SETCLR(RS) THEN 


; JUST THE THING WE NEEDED 


CVDLAB.P 1 WOLABLPIT. 


798 
79 
794 
795 
797 
oo 


WWAw 


BSSSSRE RES S333 


genamennans 
WONOUSWN oO 
Ooooooooo0o0o°o 


5 


5 


eae 
RES 


w@babeabababadababed 

NaNnsNMongNnonononety 

BERRSKSSS 
wv 

sooo 


N 
>) 


J_TEST 


17-NOV-78 


123727 
001001 
000405 


000261 


MACY11 S06(1065) 
78 09:38 


5 
3 112737 000001 012612 


012612 000001 


012610 


000001 
012620 


012610 


012612 000001 


7? 
ae sa Ps 39 PAGE 89 


OUTINE - SEQ 0088 
LET FLAG :B= #TRUE 
MOVB #TRUE,FLAG 
ENDIF 
$243: 
EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 
CMPB FLAG, ATRUE 
BEQ oe 
TST TIMSAV 
BLE $240 
ONE WAY OR THE OTHER, WE ARE DONE 
>: IF we ARE STILL HERE THEN HANG AROUND A WHILE 
WAITMS 1 sWAIT FOR 1 MILLI-SECONDS 
MOV R5,-(SP) 
MOV #1,-(R5) 
JSR PC, “WAIT 
MOV (SP) +, RS 
LET TIMSAV := TIMSAV - 41 ; COUNTING DOWN 
DEC TIMSAV 
ENDLOOP : CONTINUED AT THE TOP 
$237 
$240: 
: ONLY 2 WAYS TO GET HERE 
; 1). WE RAN OUT OF TIME---ERROR ! 
: 2). THE BIT IS IN THE CORRECT COND I T10N-GOOD ss 
IFB FLAG EQ #TRUE THEN 
CMPR FLAG, A4TRUE 
BNE $244 
RETURN NO.ERROR ; GOOD 
BR $235 
ENDIF 
$244: 
RETURN ERROR : BAD 
SEC 
BR $236 
REGSAV: .WORD 0 
TIMSAV: .WORD 0 
FLAG: -BYTE 0 
HOLDSC: .BYTE 0 
: WE ARE DONE GO BACK HOME 
ENDRTN 
$235 
CLC 
$256 
RTS PC 
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CVDLAB.P11 17-NOV~-78 09:38 ROUTINE - TIMER SEQ 0089 
3841 
BUI IIOIOIISIOI IIS IIOIOIIOIUIDIDIDIDIOISISIDIDIUIDIDIDIUIUIUIDIOIDIOIOIII IOI tt 
333 ROUT INE: 


WAIT 
THIS ROUTINE IS use’ TO DELAY EXECUTION OF THE 
I] FOR A SPECIFIED AMOUNT OF TIME 


MAIN PROGRAM ; 
THIS IS ACCOMPLISHED BY _ INCREMENTING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 


tare 
a 


Be Be Be Be Be Se & 
a» e+ 2 2 RB BE 


3849 SII IOIOIOIIICICISISISIIIOIOIOIOIOIOINIOINIDIDIEIIIIOIT TOTTI I ISISSSSSSSSSIS SSSA 
3850 012620 ROUTINE WAIT <TIME> 
3851 012620 WAIT: 

3852 012620 PUSH <R1,R2,R3> 
3853 012626 LET R1 := TIME (RS) 
3854 pi segs 016501 000000 MOV TIME (RS) ,R1 

3855 012632 INCRU R2 FROM #1 TO R17 BY 41 
3856 012632 012702 000001 MOV #1,R2 

3857 012636 000402 BR $247 

3858 012640 $250: 

3859 012640 062702 000001 ADD #01,R2 

3860 012644 $247: 

3861 012644 020201 CMP R2,R1 

3862 012646 101010 BHI $251 

38635 012650 INCR R3 FROM #0 TO #100 BY 41 
3864 012650 005003 CLR R3 

3865 012652 000401 BR $252 

3866 012654 $255: 

3867 012654 005203 INC R3 

3868 012656 $252: 

3869 012656 020327 000100 CMP R3,4100 

3870 012662 003001 BGT $254 

3871 012664 END INC 
3872 012664 000773 BR $253 

3873 012666 $254: 

3874 012666 END INC 

3875 012666 000764 BR $250 

3876 012670 $251: 

3877 012670 POP <R3,R2,R1> 
3878 012676 ENDRTN 

3879 012676 $245: 

3880 012676 $246: 

3881 012676 000207 RTS PC 


mM 7 
DLVI11-J_TEST MACY11 30G(1063) 17-NOV-78 09:39 PAGE 91 


; 


VDLAB.P11 17-NOV-78 09:38 ROUTINE - WAIT SEQ 0090 
Ferg 
3884 _SBTTL ROUTINE TO SIZE THE BUS 
3886 012700 005737 001252 SIZE: TST SDEVM :BR IF INITIALLY SET 
3887 012704 001060 BNE 4$ ‘BYPASS AUTO=-SIZING 
aRB0 012706 012737 013610 000004 1S: MOV #INTSRV,ERRVEC 
3890 012714 012737 000340 060006 MOV #PR7 , ERRVEC+2 
3892 012728 013737 001250 013514 MOV SBASE , TMP6 
3393 012730 012737 000001 013512 MOV #1, SFTREG 
$596 012736 005037 013616 2$: CLR INTFLAG 
3896 012742 005777 000546 TST aTMP6 :SEE IF THERE 
3897 012746 005737 013616 TST INTFLAG *GOT INTERRUPT? 
3898 ples, 001003 BNE 3$ “BR IF YES (NO gl 
3899 012754 053737 013512 001252 BIS SFTREG.$DEVM  :ELSE THERE, SET MAP 
3001 012762 062737 000010 013514 3$: ADD #10, TMP6 :GO TO NEXT CHANNEL 
3902 012770 006337 013512 ASL SF TREG 
3903 012774 001360 BNE 2$ :BR IF MORE TO GO 
330¢ 012776 012737 000006 000004 MOV #6, ERRVEC :RESTORE 
3906 01 005037 000006 CLR ERRYEC+e 
3008 013010 005737 001252 TST SDEVM s ANYONE THERE? 
3909 013014 001014 BNE 4$ “BR IF YES 
3910 013016 TYPTXT vingoditans DEV TO TEST!> 
3911 000777 BR -LOOP HERE TILL PROBLEM FIXED 
3912 “& RESTART AT 200 
3915 013046 105737 001221 4$: TSTB = SUSWR+1 “SEE IF ANY CONSOLE 
3914 013052 001434 BEQ 6$ -BR IF NONE 
3916 013054 010046 MOV RO,-(SP) :SAVE RO 
3917 013056 113700 001221 MOVB SUSUR*1 .RO “GET CONSOLE DEVICE x2 
8 013062 020027 000010 CMP RO,#10 
19 013066 003005 BGT 5$ :BR IF TOO HI 
20 013070 056037 013516 001252 BIS TABL 1-2(RO), SDEVM -SET CONSOLE BIT ON MAP 
21 013076 012600 MOV (SP) +,RO :RESTORE RO 
328 013100 000421 BR 6$ 
3924 013102 5$: TYPTXT <<CRLF>!CONSOLE IN $USWR WRONG! > 
5 013140 000137 014362 JMP $EOP :START ALL OVER 
-] = STACK WILL ORESET IN ‘LOOP’ 
7? 013144 013737 001252 013502 6%: MOV $DEVM,MASK1 
28 013152 013737 001252 013594 MOV $DEVM.MASK2 
03 013160 013737 001252 013506 MOV $DEVM,MASK3 
393 013166 013737 001252 013510 MOV $DEVM,.MASK4 
3952 013174 042737 177760 013502 BIC #°C<17>,MASK1 :SAVE ONLY MODULE 17 CHANNELS 
3933 01 : 042737 177417 013504 BIC #*(<360>,MASK2 : 2 
013210 042737 170377 013506 BIC #*(<7400>,MASK2 : 3 
16 042737 00 013510 BIC #°C<170000> ,MASK4 i 


5 01 
x 013224 006237 013504 ASR MASK2 


N 7 
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CVDLAB.P1 17 ROUTINE TO SIZE THE BUS SEQ 0091 
5035 OI asey 006237 013504 ASR MASK 2 
3939 015234 006237 013504 ASR MASK2 
9 013240 006237 9135504 ASR MASK2 | :RIGHT JUSTIFY MODULE 2 CHANNELS 
013244 000337 013506 SWAB MASK3 ‘ 3 
013250 000337 013510 S MASK4 
013254 006237 013510 ASR MASK4 
013260 006237 013510 ASR MASKS 
264 006237 013510 ASR MASK4 
013270 006237 013510 ASR MASKS : 4 
013274 TYPTXT <<CRLF>!WILL TEST: !<CRLF>> 
013320 012700 013502 MOV #MASK1 RO 
at $3 012737 000061 013474 MOV #61 ,MODNUM : INIT MOD # 
013332 012737 000060 013500 MOV #60, CHNUM+2 : INIT CHANNEL & 
OI See 012037 013516 7$: MOV (RO) +,MSK 
013344 001001 BNE 8$ ;BR IF ANY THERE 
013346 000441 BR 11$ sELSE TRY NEXT MODULE 
O13 8$: TYPTXT <<CRLF>!MODULE !> 
4 ay 104401 013474 TYPE -MODNUM 
13374 TYPTXT <! CHANNEL !> 
Or ea se 032737 000001 013516 9S: BIT #B1IT0,MSK 
01 4 001402 BEQ 10$ -BR IF NOT TESTING THAT CHANNEL 
013426 104401 013476 TYPE , CHNUM sELSE TYPE IT 
013432 005237 013500 10$: INC CHNUM+ 2 ;BUMP CHANNEL CTR 
OI 8078 006237 013516 ASR MSK 
1728 Oa . BNE 9$ :BR IF MORE TO CHECK 
013444 012737 000060 013500 MOV #60, CHNUM+2 sELSE RESET CH # 
017452 O0363/ 013474 11$: INC MODNUM ;BUMP MOD #4 
4 56 a 27 013474 000065 CMP MODNUM, 465 sALL DONE? 
15464 1325 BNE 7$ :BR IF NO 
4 $6 104401 001171 TYPE , SCRLF 
1 000207 RTS PC sELSE EXIT 
OTe be 000061 MODNUM: .ASCIZ /1/ 
13476 020040 000060 CHNUM: .ASCIZ / O/ 
13502 MASK1 0 :CONTAINS MODULE 1 CHANNELS 
13802 900000 Maske: 0 d 
135 MASK3: 0O 3 
1 3] MASK4: 0 ; 4 
1351 SFTREG: 0 
13514 TMP 0 
3 516 MSK G 
135 aig a TABL 1 10 :-SET $DEVM IF CONSOLE ON MODULE 1 
0135 200 200 , 2 
013524 004000 000 3 
013526 100000 100000 4 
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CVDLAB.P11 17-NOV-78 09:38 ROUTINE TO SIZE THE BUS SEQ 0092 
399% 
3995 
3996 
3997 .SBTTL ROUTINE TO TEST FOR CONSOLE DEVICE 
3999 013530 113737 001221 013606 TSTCON: MOVB SUSWR+1 , TMP7 ;GET CONSOLE ‘te ONL Y 
4000 01 $275 237 013606 ASR TMP7 :RIGHT JUSTIFY 
4001 01 306 023737 013606 001206 CMP TMP7 , SUNIT ; SEE IF UNIT UNDER TEST HAS CONSOLE 
4002 013550 001403 BEQ 1$ F YES 
4003 013552 005037 013604 CLR CONSOLE “ELSE CLEAR STALE INFO 
tape 013556 000207 ~- RTS PC 
4006 013560 013737 001144 014156 1$: MOV $TKS ,ADDRESS : FORCE TTY ADDRESS 
4007 013566 012737 000060 014160 MOV ATKVEC, VECTOR VECTOR 
4908 013574 012737 000001 013604 MOV #TRUE , CONSOLE :SET FLAG 
pent 013602 000207 RTS PC 
4011 013604 000000 CONSOLE : 0 sFLAG, 1= TESTING CONSOLE DEVICE 
pe A 013606 000000 TMP7: 0 ;HOLD CONSOLE #4 
4014 
4015 
ZOS .SBTTL INTSRV INTERRUPT SERVICE ROUTINE 
4018 SAIS IIIIOIIII UIC IOI III ICICI IIIT IIS TI TIT HI 
4019 3* THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
4020 7” "INTFLAG' EACH TIME IT IS CALLED. IT ASSUMES 
4021 7* THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
4022 a* TO LOOK FOR. 
4025 2 RRR RRR EEE RARER EEE REE ERRERERE EERE EE 
4024 015610 BGNSRV INTSRV ;GLOBAL INTERRUPT SERVICE ROUTINE 
4025 015610 INTSRV: 
4026 zADD 1 TO "INTERRUPT OCCURED’ FLAG 
4027 013610 LET INTFLAG := INTFLAG + #1 
4028 013610 005257 015616 INC INTFLAG : 
4 013614 ' ENDSRV ; THAT'S ALL 
4030 013614 000002 RTI 
4031 013616 000000 INTFLAG: OQ 


CVDLAAO DLV11-J 
CVDLAB.P11 


01 
013714 


013722 
13726 
013732 
013734 
013740 


013744 


TEST 


013737 
013737 


Ocar ee 


7 
017037 


005037 
005737 
001004 
005237 
000137 


023727 
d2 


023727 


es 


001250 
001244 


001206 


014166 
014164 
000001 


014170 
014362 


001206 
014114 
014114 
014124 
013604 
014162 
001206 
013620 
014166 


014164 
014164 
000020 


001206 
013620 


014164 
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014156 
014160 


000005 


001206 


000001 
000004 


001220 


014166 


17-NOV-78 09:39 PAGE 
INTERRUPT SERVICE ROUTINE 


INTSRV 


.SBTTL ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


es KK REE EAREEEEKEEEKEKEEEKEKEEEAKKKEREKEEKEKKEEKEREREEEEKEE 


“* 
- 
** 
. 
;* 


THIS ROUTINE CAUSES 
ADDRESS 


OF DLV11-J 


ADRS 
R 


re POINT TO THE 
UNDE ADRS +2 TO 
POINT TO THE VECTOR OF THE bLVit=d UNDER TEST. 


SRR REE ERE EERE REE EE EERE EEE EERE EKER EERE EERE ERE R ES 


CYCLE: 


1$: 


2$: 


3$: 


4$: 


SBASE ADDRESS 
$VECT1. VECTOR 


eet 

PHASE 2 

CHAN 

#1 ,SUNIT 

PICNT 

$EOP 

toil 

TABL 2-2 (RO) ,ADDRESS 
TABL2-2(RO) , VECTOR 
@TABL 3-2 (RO) ,MASK 


CONSOLE 


PHASE 2 , # TRUE 
6$ 

CHAN ,A4 

4$ 


ATRUE ,PHASE2 
P1CNT 

CYCLE 

alia 
TABL4 (RO) , ADDRESS 


TABL4 (RO), VECTOR 
ahaa ita 


CHAN , 45 


;DONE ALL MODULES? 
:BR IF NO 
;RE-INIT 


7& EXIT BACK TO ‘LOOP’ 
;STACK WILL GET RESET THERE. 


;MULT BY 2 TO ae INTO TABLES 
E OFFSET 


sADD MODUL 
:ADD VECTOR OFFSET 
STORE CHANNELS IN ‘MASK* 


ANY CHANNELS TO BE TESTED? 


7BR IF YES 
;ELSE BUMP UNIT # 
; TRY AGAIN 


; DOING + 2? 


:BR IF Y 


sELSE, DONE ALL CHANNELS? 
:BR IF NO 


sELSE BACK 


TO 0 
‘BR IF “tg WRAP TESTS? 


I 
sELSE 73 TO NEXT UNIT, NO PHASE 2 


:GO TO PHASE 2 TESTING 


:1S IT CHAN 3? 


¢MUL T BY 2 TO yk TABLE 
FSET 


;ADD CHANNEL OF 
“ADD VECTOR OFFSET 
71S THAT CHANNEL 
;BR IF NO 


TO BE TESTED? 


SEQ 0093 


CVDLAAO DLV11-J_TEST 
CVDLAB.P11 


NOMAD 3 a 2 PV OO 
Sa nrunveoe 


S & 
- ¢& 


BPRRARARER BRRER RRR HHREHR HHEEHR LHR BRE BR 
SSBSR FVSR ROSK KEYSR RVSS BK KS 


OOOCOCOO DBOOO GCOO0OO GoOooeo GcoOo°o co coo oo 


™~ 
© 


17-NOV~78 


001006 
00473 


005237 
012701 
000207 


005237 


=e 2 


Oooo 
RED SS 
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013530 
014164 
014156 


014164 
013620 


D 
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ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


17-NOV-78 
BNE 
JSR 
5$: INC 
6$: MOV 
RTS 
7$: INC 
JMP 
TABL2: O 
40 
100 
140 
TABL3: MASK 
MASK2 
MASK3 
MASK4 
TABL4: O 
10 
20 
30 
TABL5: BITO 
BIT1 
BIT2 
BITS 
ADDRESS: 0 
VECTOR: 0 
MASK: 0 
CHAN: 0 
PHASE2: 0 
P1CNT 0 


5$ ;BR IF NO 
PC, TSTCON sELSE SEE IF ITS THE CONSOLE 
CHAN :BUMP CHANNEL CTR FOR NEXT TIME 
#ADDRESS,ADRS 
PC :GO TO PHASE 1 TESTS 
CHAN 
CYCLE : TRY AGAIN 
:OF FSET FOR MODULE } 
: 3 
° 4 
sMODULE CHANNEL DATA 
: 3 
: 4 
7 CHANNEL , OF F SET 
: 2 
; 3 
:BIT TO TEST CHANNEL PRESENT 
: 2 
: 3 


:CTR TG PRINT ‘PHASE 1° ONLY ONCE 


SEQ 0094 


CVDLAAO DLV11-J_TEST 


CVDLAB.P11 17-NOV-78 09: 
4127 
4128 014172 
41 014172 MYTYPE: 
41 014172 
4131 014212 
4132 014220 
4133 014240 113737 001114 001176 
4134 014246 
4135 014256 
4136 014274 
4137 0143502 
4138 014320 
4139 014526 
4140 014346 
4141 014354 104401 001171 
4142 014360 
4143 014360 $255: 
4144 $256: 


014360 
014360 000207 


MACY11 30G(1063) 17-NOV-78 09:39 PAGE 
38 ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


ROUTINE MYTYPE 


<<CRLF>*TEST # *> 
STESTN 


<*,ERROR # *> 
$1] 7TEMB,SFATAL : APT FATAL ERROR NUMBER 
SFATAL 
<*,CSR: *> 
DLADD 
<*, VECTOR: *> 
LVEC 


D 
. $CRLF 
ENDRTN 


PC 


SEQ 0095 


Sy ge ay DLV11-)_TEST 


VDLAB.P11 
4147 
4148 
4149 
4150 
4151 
415 
415 
4154 
4155 
4156 014362 
4157 014362 
4158 014364 
4159 014370 
4160 014374 
4161 014400 
4162 014406 
4163 014410 
4164 014412 
4165 014414 
4166 014416 
4167 014420 
4168 014422 
4169 014426 
4170 014432 
4171 014434 
4172 014440 
4173 014444 
4174 014446 
4175 014450 
4176 014452 
177 014454 
4178 014456 
4179 014460 
4180 014460 
4181 014462 
4182 014464 
4183 014467 
4184 014474 
4185 014502 


: 


-—NNNNN 
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051501 


001202 


F_ 8 
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ND OF PASS ROUTINE 


.SBTTL END OF PASS ROUTINE 


© EEE EERE EEE EKER ERE 


“INCREMENT THE PASS NUMBER ($PASS) 


; * INDICATE END-OF ~PROGRAM 


AFTER 1 PASSES THRU THE 


PROGRAM 
>*TYPE "END PASS #XXXXX"' iT XXXXX IS A DECIMAL NUMBER) 


:*IF THERES A sa GO T 
:*IF THERE ISN'T 


SEOP: 


SEOPCT: 


SENDCT: 


$GET42: 


SENDAD : 


$DOAGN: 


SRTNAD: .WOR 
377 000 S$ENULL: .BYT 
042412 042116 SENDMG: 
020123 


JMP 


‘ -1,-1,0 FF 
"ASCIZ <15><12>/END PASS #/ 


JUMP TO LOOP 


$DOAGN 
ee 


. SENDMG 
$PASS ,~ (SP) 


. SENULL 
av42,RO 
OAGN 


$DOA 
PC, (RO) 


a(Pt)+ 
L OOP 


3:ZERO THE TEST NUMBER 

:s ZERO THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 

: DON'T ALLOW A NEG. NUMBER 


77YES 
; RESTORE COUNTER 


2 TYPE "END PASS #°° 

;SAVE SPASS FOR TYPEOQUT 

::GO TYPE--DECIMAL ASCII WITH SIGN 
;; TYPE A NULL CHARACTER 


: SRETURN 
NULL CHARACTER STRING 


SEQ 0096 


CVDLAAO DLV11 
CVDLAB.P11 


VENRSARVOR 


td od od = td od = I 
VIA 


566 


PERK DHLHRDEAHRHKLALRS 
SESS wn 


DOCOCCOOCOCOCOSOOSOOCSCOCOCOCOOCOOOCOOOCOOCOCOCCoOoO 
RRS 


S55R 


TES 


105737 
100002 


oe —? — — —s —+ 
S88S L8u8ss8sseq 
AERA Wow A> RAP 
AN™N N o-fNO™N 
AWA™S . — 
NNO OOONYUN oO 
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001157 


000100 


014554 
015550 


000040 


000002 
000011 
000200 


014762 


014716 
001156 


001154 
000001 


014716 
014762 


001214 
001215 


001215 


17-NOV- 
TYPE ROUTINE 
. SBTTL 


:*THE ROUTINE WILL INS 
: *NOTE1: 


. 
*2 


5$: 
6$: 


7$: 


G 8 
78 09:39 PAGE 98 


TYPE ROUTINE 


TO TCC CCCCCACACCCAACE CCS APE ARRE EEE R EERE SERRE RRR RRR RRR RASA RRS DS ES 


= *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


TYPE 
ME SADR 


ERT A NUMBER OF NUL 
L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


L CHARACTERS AFTER A LINE FEED. 


SNUL 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


$FILLC CONTAINS 


>*CALL: 
>*1) USING A TRAP INSTRUCTION 
el TYPE ME SADR 


$STPFLG 
1$ 


3$ 

RO,-(SP) 

@2(SP) ,RO 
ee 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC, SATYS 


oo oe 
(RO) +,—(SP) 

4$ 

(SP) + 

(SP)+,R0O 

#2, (SP) 

MHT, (SP) 
ACRLF , (SP) 

5$ 


(SP) + 


SCHARCNT 
2$ 


PC, STYPEC 
$FILLC,(SP)+ 


2$ 
$NULL = (SP) 
1(SP) 

$ 


6 
Pc, STYPEC 
SCHARCNT 


THE CHARACTER TO FILL AFTER. 


;zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


:21S THERE A TERMINAL? 
;;BR IF YES 
ie IF NO TERMINAL 


::NO,GO CHECK FOR APT CONSOLE 
::; SPOOL MESSAGE TO APT 

:;NO,GO CHECK FOR CONSOLE 

: ;SETUP MESSAGE ADDRESS FOR APT 
:: SPOOL MESSAGE TO APT 


7 SAVE RO 
:;GET ADDRESS OF ASCIZ STRING 
. ING IN APT MODE 


- > Ap 

:IYES.SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 
“BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

= IRESTORE RO 

:TADJUST RETURN PC 


; SRETURN 
> ;BRANCH IF <HT> 
: ;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
>: TYPE A CR AND LF 


::;CLEAR CHARACTER COUNT 

::GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

::IS IT TIME FOR FILLER CHARS.? 
>: IF NO GO GET NEXT CHAR. 

> ;GET # OF se to NEEDED 


sé - x 

::DOES A NULL NEED TO BE TYPED? 

::BR IF NO=--GO POP THE NULL OFF OF STACK 
::;GO TYPE A NULL 

:,DO NOT COUNT AS A COUNT 


SEQ 0097 
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CVDLAAO DLV11-J_TEST MACY11 30G(1063) 
CVDLAB.P11 17-NOV-78 09:38 T SEQ 0098 
ose 014670 000770 BR 7$ ; sLOOP 
iste sHORIZONTAL TAB PROCESSOR 
4246 014672 112716 000040 8$: MOVB a’ ,(SP) ;;REPLACE TAB WITH SPACE 
4247 014676 004737 014716 9$: JSR PC, STYPEC : TYPE A SPACE 
4248 014702 132737 000007 014762 BITB #7, $CHARCNT ; ;BRANCH IF NOT AT 
4249 014710 001372 BNE 9$ STOP 
4250 014712 005726 TST (SP) + : POP SPACE OFF STACK 
4251 014714 000724 BR 2$ ;GET NEXT CHARACTER 
4252 014716 105777 164226 $TYPEC: TSTB a$TPS ::WAIT UNTIL PRINTER IS READY 
4255 014722 100375 BPL $STYPEC 
4254 014724 116677 000002 164220 MOVB 2 (SP) ,a$TPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
4255 014732 122766 000015 000002 CMPB #CR,2(SP) HIS CHARACTER A CARRIAGE RETURN? 
42 014740 001003 BNE $ ;BRANCH IF NO 
4257 014742 105037 014762 CLRB $CHARCNT ;s YES~=CLEAR CHARACTER COUNT 
42 014746 000406 BR STYPEX XIT 
4259 014750 122766 000012 000002 1%: CMPB ALF ,2(SP) iis CHARACTER A LINE FEED? 
014756 00140 BEQ $STYPEX +3 CH IF YES 


INCB (PC) + : COUNT THE CHARACTER 
$LHARCNT:.WORD 0O - > CHARACTER COUNT STORAGE 
$TYPEX: RTS PC 
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CVDLAB.P11 17=NOV-78 Y INPUT ROUT! SEQ 0099 
4265 _SBTTL TTY INPUT ROUTINE 

4267 SD RE EERE REE EERE EERE EEE 
4268 -ENABL LSB 

4270 “Sreedhar deh iiaiietaiaiads 
4271 « SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

427 : «ROUTINE 15 ENTERED FROM "HE TRAP HANDLER, AND WILL 

427 “*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
4274 > «WHEN OPERATING IN TTY FLAG MODE. 

4275 014766 022737 000176 001140 $CKSWR: CMP #SWREG, SWR :31S THE SOFT-SWR SELECTED? 
4276 014774 001074 BNE 15$ CH IF NO 

4277 014776 105777 164142 TSTB a$Tks :: CHAR THERE ? 

4278 015002 100071 BPL 15$ F NO, DON'T WAIT AROUND 

4279 015 117746 164136 MOVB  a@$TKB,-(SP) *SAVE THE CHAR 

4280 015010 042716 177600 BIC #°C177, (SP) «  STRIP-OFF THE ASCII 

4281 015014 022726 CMP #7, (SP)+ *:1S IT A CONTROL 

4282 015020 00106 BNE 15 :7NO, RETURN TO USER 

4283 015022 123727 001134 000001 CMPB SANTOS #1 — WE RUNNING IN AUTO-MODE? 
4oBh 015030 001456 BEQ 15$ = =BRANCH IF YES 

4286 015032 104401 015513 TYPE .SCNTLG ::ECHO THE CONTROL-G (*G) 

4287 015036 104401 015520 $GTSWR: TYPE  SMSWR =: TYPE CURRENT CONTENTS 

4288 015042 013746 000176 V SWREG, -(SP) : SAVE SWREG FOR TYPEOUT 

4289 015046 104402 TYPOC TYPE--OCTAL ASCII(ALL DIGITS) 
4290 015050 104401 015531 TYPE  SMNEW = =PROMPT FOR NEW SWR 

4291 015054 005046 19$: CLR -(SP) :: CLEAR COUNTER 

4292 015056 005046 CLR -(SP) >> THE NEW Sw 

4293 015 105777 164060 7$: TSTB =—s-_ AS TKS -=CHAR THERE? 

($5¢ 015064 100375 BPL 7$ >: If NOT TRY AGAIN 

4296 015066 117746 164054 MOVB  a$TKB,-(S :3PICK UP CHAR 

ogy 015072 042716 177600 BIC #°C177, ep) > >MAKE IT 7-BIT ASCII 

4299 

4300 

4301 015076 021627 000025 9$: CMP (SP) ,425 sis IT A CONTROL-U? 

4302 015102 001005 BNE 10$ CH IF NOT 

4303 015104 104401 015506 TYPE SSCNTLU “YES, ECHO CONTROL-U (“U) 

4304 015110 706 000006 208: ADD #6, SP : IGNORE PREVIOUS INPUT 

4305 015114 000757 BR 19$ tLe S TRY IT AGAIN 

is 

4308 015116 021627 000015 10$ CMP (SP) 15 -:1S IT A <CR>? 

4309 015122 1022 BNE 16% ; RANCH IF NO 

4310 015124 5766 000004 TST 4 (SP) -YES, IS IT THE FIRST CHAR? 
4311 0151 001403 BEQ 11$ “BRANCH IF YES 

4312 015132 016677 000002 164000 MOV 2(SP) ,a@SwR -=SAVE NEW SWR 

4313 015140 706 000006 11§: ADD 2SP -:CLEAR UP STACK 

4314 015144 104401 001171 14$: TYPE S$CRLF : ECHO <CR> AND <LF> 

4315 015150 123727 001135 000001 CMPR  —s- S$ INTAG, #1 RE-ENABLE TTY KBD INTERRUPTS? 
4316 015156 001003 BNE 15$ > :BRANCH IF NOT 

4317 015160 012777 000100 163756 MOV #100, a$TkS [RE-ENABLE TTY KBD INTERRUPTS 
4318 015166 2 15$: RT] > RETURN 

4319 0151 737 014716 "é$: JSR PO STYPEC *:ECHO CHAR 

4320 015174 021627 000060 C (SP) #60 >’ CHAR < 0? 
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CVDLAB.P1 1 : INE 


1 7=-NOV-78 09:38 TTY INPUT ROUT SEQ 0100 
4321 912509 002420 BLT 18$ : ;BRANCH IF YES 
C358 Ot 2she 021627 000067 CMP (SP) ,467 —32CHAR > 7? 
4 015 003015 BGT 18$ = BRANCH IF YES 
4324 015210 042726 000060 BIC #60, (SP)+ =:STRIP=OFF ASCII 
4325 015214 005766 000002 TST 2(SP) -:1S THIS THE FIRST CHAR 
4326 015220 0014035 BEQ $3 CH IF YE 
4327 015222 006316 ASL (SP) =*NO, SHIFT PRESENT 
4328 015224 006316 ASL (SP) -; CHAR OVER TO MAKE 
4329 015226 006316 ASL (SP) :: OOM FOR 
4330 015230 005266 000002 i7$: INC 2(SP) -:KEEP COUNT OF CHAR 
4331 015234 056616 177776 BIS -2(SP), (SP) ->SET IN NEW CHAR 
4332 015240 000707 BR 7$ -:GET THE NEXT ONE 
4333 4015242 104401 001170 18%: TYPE SQUES =: TYPE ?<CR><LF> 
4334 015246 000720 BR 20$ > >SIMULATE CONTROL-U 
4335 .DSABL LSB 
4336 
4337 
4338 Sr RT TT ERR REE EERE REE EEE ERE REE EERE ERS 
res hey ROUTINE WIL! INPUT A SINGLE CHARACTER FROM THE TTY 

*“* s 

4341 :* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
4342 zs RETURN HERE -=CHARACTER IS ON THE STACK 
4343 :* =:WITH PARITY BIT STRIPPED OFF 
C32 
4346 015250 011646 $RDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
4347 015252 016666 000004 000002 MOV 4(SP),2(SP) -=SAVE THE PS 
4348 015260 105777 163660 1$: TSTB) =. aSTKS -:WAIT FOR 
43%49 015264 100375 BPL 1$ ::A CHARACTER 
4350 015266 117766 163654 000004 MOVB  a$TKB,4(SP) -:READ THE TTY 
4351 01327 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
4352 015302 026627 000004 000023 CMP 4(SP) #23 *:1S IT A CONTROL-S? 
4353 015310 001013 BNE 3$ 23 H IF NO 
4354 015312 105777 163626 2$: TSTB «a$TkS -=WAIT FOR A CHARACTER 
4355 015316 100375 BPL 2$ ::LOOP UNTIL ITS THERE 
4356 015320 117746 163622 VB a$TkB,-(SP) -:GET CHARACTER 
4357 015324 042716 177600 BIC #°C177, (SP) = :MAKE IT 7=B1T ASCII 
4358 0153 022627 000021 CMP (SP) +,421 ::I1S IT A CONTROL-Q? 
4359 015334 001366 BNE 2$ -:]F NOT DISCARD IT 
4360 015336 000750 BR 1$ 3 , RESUME 
4361 015340 026627 000004 000140 3$: CMP 4(SP) 4140 -:1S IT UPPER CASE? 
4362 015346 002407 BLT 4 > :BRANCH IF YES 
43%63 015350 026627 000004 000175 CMP 4(SP) A175 -=1S IT A SPECIAL CHAR? 
4364 015356 003003 BGT 4$ + CH IF YES 
4%5 015360 042766 000040 000004 BIC #40,4(SP) -*MAKE IT UPPER CASE 
4%6 015366 000002 43: RTI -:GO BACK TO USER 
4367 5 RRA AR ERE RE RES RAAAARERAERARERERARARA ERR A RRR ERK EES 
4368 **THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4369 :*CALL: 
4370 :* RDLIN +: INPUT A STRING FROM THE TTY 
4371 * RETURN HERE =: ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
$38 :* -: TERMINATOR WILL BE A BYTE OF ALL O°S 
4374 015370 010346 $RDLIN: MOV R3,-(SP) ::SAVE R3 
4375 015372 012703 015476 1$: MOV AZTTYIN,R3 -:GET ADDRESS 
4376 015376 022703 015506 2$: cme #S$TTYIN*8.,R3  ;, BUFFER FULL? 
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4377 015402 101405 BLOS 4$ ::BR IF YES 

4378 015404 104410 RDCHR >:GO READ ONE CHARACTER FROM THE TTY 
4379 015406 112613 MOVB (SP) +, (R3) SIGET CHARACTER 

4380 015410 122713 000177 108: CMPB ss #'177,, (R3) *:3§ IT A RUBOUT 

4381 015414 001003 BNE $ *:SKIP IF NOT 

4382 013416 104401 001170 4$: TYPE $QUES *> TYPE A '?° 

4 015422 000763 BR ==CLEAR THE BUFFER AND LOOP 

438% 013404 111337 015474 3$: MOVB (R3) ,9$ **ECHO THE CHARACTER 

4385 015430 104401 015474 TYPE : 

4386 015434 122723 000015 CMPB ss #15, (R3) + :: CHECK FOR RETURN 

4387 015440 001356 BNE **LOOP IF NOT RETURN 

4388 015442 105063 177777 CLRB  =—s_- = 1 (R33) =>CLEAR RETURN (THE 15) 

4389 015446 104401 001172 TYPE SLE +: TYPE A LINE FEED 

4390 015452 012603 MOV (SP)+,R3 : sRESTORE R3 

4391 015454 011646 MOV (SP) ,-(SP) ADJUST THE STACK AND PUT ADDRESS OF THE 
4392 015456 016666 000004 000002 MOV 4(SP5 ,2(SP) - FIRST ASCII CHARACTER ON IT 
4393 015464 012766 015476 000004 MOV #$TTYIN,4(SP) 

4394 015472 2 RT] : sRETURN 

4395 015474 000 9$ .BYTE 0 *>STORAGE FOR ASCII CHAR. TO TYPE 
4396 015475 000 ‘BYTE O :iTE 

4397 015476 000010 S$ITYIN: .BLKB 8. * =RESERVE 8 BYTES FOR TTY INPUT 
4398 015506 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12>  =::CONTROL ‘U'' 

4399 015513 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> —;; CONTROL "'G’' 

4400 015520 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 

4401 015526 020075 000 

4402 015531 040 047040 053505 S$MNEW: .ASCIZ / NEW = / 

4403 015536 036440 000040 
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T COMMUNICATIONS ROUTINE 
- SBTTL 


APT COMMUNICATIONS ROUTINE 


TORE EECECACCLACAAAACASASAREARASEAER ERE R ERR RR RRR RRR RRR RARER SRDS O SS 


$aTy1: MOVB #1, $FFLG 
SATY3: _ #1.$MFLG 


SATYC 
#1,SFFLG 


MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB = SMFLG 
BEQ 5$ 
CMB WAPTENV, SENV 
8118 #APTSPOOL , SENVM 
MOV a4 (SP) ,RO 
ADD #2.4(SP) 
1$: TST $MSGTYPE 
BNE 1$ 
MOV RO, $MSGAD 
2$ TSTB  ~—- (RO) + 
BNE 2$ 
SUB $MSGAD ,RO 
ASR RO 
MOV RO, SMSGLGT 
MOV #4. $MSGTYPE 
BR $ 
3g MOV a4 (SP) ,4$ 
ADD #2.4(SP) 
MOV 177776, ~(SP) 
JSR PC $TYPE 
a: .WORD 0 
10$ TSTB ~—s-: SFFLLG 
BE 12$ 
TST $SENV 
BEQ 12$ 
11$ TST $MSGTYPE 
MOV a4 (SP), SFATAL 
#2,4(SP) 
INC $MSGTYPE 
12$: CLRB SFFLG 
CLRB ~—s- $LFLG 
CLRB = SMFLLG 
MOV (SP)+,R1 


MOV (SP) +-RO 
RTS PC 
$LFLG: .BYTE 0 


EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 


3;TO REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


3:TO ONLY REPORT FATAL ERROR 


;=PUSH RO ON STACK 

33PUSH R1_ ON STACK 

5 TE NDT : TYPE A MESSAGE? 

; {OPERATING UNDER APT? 
NOT: 


: : SHOULD SPOOL MESSAGES? 
NOT: BR 
GET MESSAGE ADDR. 
RETURN ADDR 
:3SEE IF BONE W/ LAST XMISSION? 


: PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 


ah START OF MESSAGE 

; GET MESSAGE LNGTH IN WORDS 
7;PUT LENGTH IN MAILBOX 

;:TELL APT TO TAKE MSG. 


;3PUT MSG ADDR IN JSR LINKAGE 
TURN ADDRESS 

: PUSH 199776 ON STACK 

=>CALL TYPE MACRO 


¢ s SHOULD REPORT FATAL ERROR? 
::1F NOT: BR 
By a UNDER APT? 
: FINISHED myq MESSAGE ? 
re Ry iE — 
T ERROR # 
RETURN ADDR. 


; BUMP 
>TELL abt TO TAKE ERROR 
72 CLEAR FATAL FLAG 


;RETURN 
MESS. FLAG 
[LOG G 
: FATAL FLAG 


SEQ 0102 
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4460 000040 APTCSUP=040 
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CVDLAB.P11 17=NOV-78 09:38 RROR HANDLER ROUTINE SEQ 0104 

Go} _SBTTL ERROR HANDLER ROUTINE 
4463 TTT TCC CCC CCLACACLAALAACLCALAAASALARESAS EEE REESE EER A RARER RRR ARR RR DD DSS! 
4464 “THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
4465 ; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
4466 -*AND GO TO MYTYPE ON ERROR 
4467 **THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
4468 : Swi 5= 1 HALT ON ERROR 
4469 Sw 3=1 INHIBIT ERROR TYPEOUTS 
4470 :SWIO=1 BELL ON ERR OR 
4471 *SWO9=1 LOOP ON ERR 
4472 :*CALL 
he : ERROR N : :ERROR=EMT AND N=ERROR ITEM NUMBER 
4475 016010 $ERROR: 
4476 016010 104407 CKSWR ii TEST FOR CHANGE IN SOF T-SWR 

77 016012 105237 001103 7$: INCB = SERFLG SiSET THE ERROR FLAG 
4478 016016 001775 BEQ 7$ “DON'T LET THE FLAG GO TO ZERO 
4479 016020 013777 001102 163114 MOV STSTNM.@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 

016026 032777 163104 BIT #B1T10,aSWR *:BELL ON ERROR? 

4481 016034 001402 BEQ 1$ -*NO - SKIP 
4482 016036 104401 001164 TYPE ; RING 
4483 016042 005237 001112 1$: INC $ERTTL T THE NUMBER OF ERRORS 
4484 016046 011637 001116 MOV (SP) , SERRPC =:GET ADDRESS OF ERROR INSTRUCTION 
4485 016052 162737 000002 001116 SUB #2, $ERRPC 
4486 01 117737 163032 001114 MOVB  @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
4487 016066 032777 163044 BIT #81113, aSWR *SKIP TYPEOUT IF SET 
4488 016074 001004 BNE 20$ *:>SKIP TYPEOUTS 
4489 016076 004737 014172 JSR PC MYTYPE >:GO TO USER ERROR ROUTINE 
4490 016102 104401 001171 TYPE .$CRLF 
4491 016106 208: : 
4492 016106 122737 000001 001214 CMPB ~—s-: HAP TCNV, SENV ; RUNNING IN APT MODE 
4493 016114 001007 ‘ BNE “NO,SKIP APT ERROR REPORT 
4494 016116 113737 001114 016130 MOVB  $ITEMB. 21$ ::SET ITEM NUMBER AS ERROR NUMBER 
4495 016124 004737 015560 JSR PC $ATY > :REPORT FATAL ERROR TO APT 

9% 016130 000 21$: -BYTE 0 
4497 016131 000 “BYTE O 
4498 016132 000777 223: BR 22$ :sAPT ERROR LOOP 
4499 016134 005777 163000 2$: TST aSWR “HALT ON ERROR 
4500 016140 100002 BPL 3$ : SKIP IF CONTINUE 
4501 016142 000000 HALT “HALT ON ERROR! 
4502 016144 104407 CKSWR ;3 TEST FOR CHANGE IN SOFT-SwWR 
4503 016146 032777 001000 162764 38: BIT #BITO9, aSWR *=LOOP ON ERROR SWITCH SET? 
4504 016154 001402 BEQ 4$ *:BR IF NO 
4505 016156 013716 001110 MOV $LPERR, (SP) «FUDGE RETURN FOR LOOPING 
4506 016162 005737 001162 4$: TST $ESCAPE ;;CHECK FOR AN ESCAPE ADDRESS 
4507 016166 001402 BEQ $ “BR IF NONE 
4908 916170 013716 001162 ™ MOV SESCAPE, (SP) == FUDGE RETURN ADDRESS FOR ESCAPE 
4510 016174 022737 014450 000042 CMP WSENDAD.@442 :;ACT-11 AUTO-ACCEPT? 
4511 016202 001001 BNE 6$ ; ;BRANCH IF NO 
451¢ 016204 HALT + 
451 016206 6$: 
4514 016206 000002 RT] RETURN 
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.SBTTL SCOPE HANDLER ROUTINE 


 enanenececeeseqnnnseseneeeeqqeeqnqnensenceeeeeseneeenqneceeeees 

“ STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; SAND LOAD THE TEST wie eas INTO THE DISPLAY REG. (DISPLAY<7:0>) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

>*THE SWITCH oe thet BY THIS ROUTINE ARE: 


+ «SW14=1 ON TES 

: *SW11=1 INHIBIT ITERATIONS 

: *SWO9=1 LOOP ON ERROR 

; sSWOB=1 LOOP ON TEST IN SWR<7:0> 

"* 

:* SCOPE : :SCOPE=IOT 

SSCOPE : 

CKSWR ;;TEST FOR CHANGE IN SOF T~SwWR 

'$: BIT #B1T14,aSWR *>LOOP ON PRESENT TEST? 
BNE VER “YES IF SW14=1 

-#AAAASTART OF CODE FOR THE XOR test ERMMAHA 

$XTSTR: BR 6$ >If RUNNING ON THE SXOR’ TESTER CHANGE 

** THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 

MOV @AERRVEC.-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, AFERRVEC SET FOR TIMEOUT 
TST a#177060 :TIME OUT ON XOR? 
MOV (SP) +, AMERRVEC ; ;RESTORE THE ERROR VECTOR 
BR $SVLAD TO THE NEXT TEST 

5$: CMP (SP) +, (SP)+ *=CLEAR THE STACK AFTER A TIME OUT 


MOV (SP) +, a#ERRVEC : sRESTORE THE ERROR VECTOR 
BR 7$ ;LOOP ON THE PRESENT TEST 
6$:;4HAAHEND OF CODE FOR THE XOR TESTERMMAAH 


i #B1T08,aSWR SF ON SPEC. TEST? 
CMPB @SWR,STSTNM : ON THE _— TEST? SWR<7:0> 
BEQ SOVER >;BR IF Y 
2$: TSTB SERFLG : sHAS AN ERROR OCCURRED? 
BEQ 3$ ;;BR IF _NO 
Cc SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI ;;BR IF NO 
BIT ABI TOS, aSWR : LOOP ON ERROR? 
BEQ 4$ ;BR_IF NO 
7$: a — ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG 3;ZERO THE ERROR FLAG 
CLR STIMES - CLEAR THE NUMBER y ITERATIONS TO MAKE 
BR 1$ sESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR ; 3 INHIBIT ITERATIONS? 
BNE 1$ se F YES 
TST SPASS :cIF FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC $ICNT >: INCREMENT ITERATION COUNT 
CMP ae’ $ICNT : s CHECK K THE NUMBER OF ITERATIONS MADE 
BGE VER ;BR IF MORE ITERATION REQUIRED 
1$: MOV #1 ,$1CNT “ UREINITIALIZE THE ITERATION COUNTER 
SMXCNT , STIMES ae NUMBER OF ITERATIONS TO DO 


TEST NUMBERS 


MOV 
$SVLAD: INCB ; COUNT 
SET TEST NUMBER IN APT MAILBOX 


$7 STNM 
MOVB $TSTNM, STESTN 


eA DLV11- 


7-NOV~ 


TEST 
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SCOPE HANDLER ROUT! 


MO 
SOVER: MOV 
MO 


RT 
$MXCNT: 2000. 


(SP) ,SLPADR 
(SP) ,SLPERR 
$ESCAPE 

#1 , SERMAX 


$TSTNM, a@DISPLAY 
$LPADR 


wr? 


73 SAVE SCOPE LOOP ADDRESS 


E ERROR LOOP ADDRESS 
-¢ CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
: : DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
SIFIXES PS 
>;MAX. NUMBER OF ITERATIONS 


SEQ 0106 
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CVDLAB.P11 17-NOV-78 09:38 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0107 
rete .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
4581 EEE KEE KEKE EEEEEEEEEEEEKKEKEEE 
4582  STHIS ROUTINE IS USED TO CHANGE A 16-B8IT BINARY NUMBER TO A 5-DIGIT 
4583 ; *S1GNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
4584 -*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
4585 : *BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
ceas : SREPLACED WITH SPACES. 
4588 :* MOV NUM, -(SP) :PUT THE BINARY NUMBER ON THE STACK 
re “2 TYPDS 260 TO THE ROUTINE 
4591 016470 $TYPDS: 
4592 016470 010046 MOV RO,-(SP) 77;PUSH RO ON STACK 
4593 016472 010146 MOV R1,~(SP) :;PUSH R1 ON STACK 
4594 016474 010246 MOV R2,-(SP) 7:PUSH R2 ON STACK 
4595 016476 01034 MOV R3,~(SP) > PUSH R3 ON STAC 
4596 016500 010546 MOV R5,-(SP) :;PUSH RS ON STACK 
4597 016502 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 
4598 016506 016605 000020 MOV 20(SP),R5 3;GET THE INPUT 
4599 016512 100004 BPL 1$ ;;BR IF INPUT IS POS. 
4600 016514 005405 NEG R5 :;MAKE THE BINARY NUMBER POS. 
4601 016516 112766 000055 000001 MOVB #*-,1(SP) 7 MAKE THE ASCII NUMBER NEG. 
4602 016524 005000 1$: CLR RO siZ RO THE CONSTANTS INDEX 
4603 016526 012703 016704 MOV #SDBLK R35 ;SETUP THE OUTPUT POINTER 
4604 016532 112723 000040 MOVB #'  (R3)+ SET THE FIRST CHARACTER TO A BLANK 
4605 016536 005002 2$: CLR R2 2 SELES THE BCD NUMBER 
4606 016540 016001 016674 MOV SDTBL(RO) ,R1 ::GET THE CONSTANT 
4607 016544 160105 3$: SUB R1,R5 > FORM THIS BCD DIGIT 
4608 016546 002402 BLT 4$ 7 7BR IF DONE 
016550 005202 INC R2 : INCREASE THE BCD DIGIT BY 1 
4610 016552 000774 BR 3$ 
4611 016554 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
4612 016556 005702 TST R2 : CHECK IF BCD DIGIT=0 
4613 016560 001002 BNE 5$ THROUGH IF 0 
4614 016562 105716 TSTB (SP) :ISTILL DOING LEADING 0°S? 
4615 016564 100407 BM! 7$ 77BR IF YES 
4616 016566 106316 5$: ASLB (SP) :¢MSD? 
4617 016570 103003 BCC é$ ;BR IF NO 
4618 016572 116663 000001 177777 MOVB 1(SP) ,-1(R3) ;sYES=~SET THE SIGN 
4619 016600 052702 000060 6$: BIS #'0,Re ::MAKE THE BCD DIGIT ASCII 
4620 016604 052702 000040 7$: BIS #* ,Re or IT A SPACE IF NOT ALREADY A DIGIT 
4621 016610 110223 MOVB R2,(R35)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
4622 016612 5 TST (RO) + :; JUST INCREMENTING 
4623 016614 020027 000010 CMP RO,410 ; s CHECK K THE TABLE INDEX 
4 016620 002746 BLT 2$ :;GO DO THE NEXT DIGIT 
4625 016622 BGT 8 ::GO TO 
4626 016624 010502 MOV R5,R2 a T 
4627 016626 000764 BR >:GO CHANGE TO ASCII 
Pr 016630 105726 8$: TSTB (SP) + - = WAS THE LSD THE FIRST NON-ZERO? 
016632 100003 BPL 9$ ::BR IF NO 
4630 016634 116663 177777 177776 MOVB -1(SP) ,-2(R3) «  YES==SET THE SIGN FOR TYPING 
4631 016642 105013 9$: CL RB (R3) ::SET THE TERMINATOR 
4632 016644 012605 MOV (SP)+,R5 ::;POP STACK INTO R5 
4633 016646 012603 MOV (5°)+,R3 ::POP STACK INTO R3 
4634 016650 012602 MOV (SP)+,R2 :,POP STACK INTO R2 
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4635 016652 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
4636 016654 012600 MOV (SP) +-RO += POP STACK INTO RO 
4637 016656 104401 916704 TYPE $DBLK *=NOW TYPE THE NUMBER 
4638 016662 016666 000002 000004 MOV 2(SP) ,4(SP) ADJUST THE STACK 
4639 016670 012616 MOV (SP)+, (SP) 
4640 016672 000002 RTI ::RETURN TO USER 
4641 016674 023420 $DTBL: 10000. 

2 016676 001750 1000. 
4643 016700 100 


10. 
4645 016704 000004 $DBLK: .BLKW 4 
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Pe te .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
4648 TT TO PCC CCE ACAECACALACALALAAACAAAAARASESEEERERER ER EAR ERA RA RR RARER ARES SD S| 
4649  STHIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 6-DIGIT 
4650 >*OCTAL (ASCII) NUMBER AND TYPE IT 
1825 : Ny lait HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
-* 7 
4653 * MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 
4654 :* TYPOS ::CALL FOR TYPEOUT 
4655 :* -BYTE WN ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
4656 :* BYTE M :;M=1 OR 0 
4657 :1=TYPE LEADING ZEROS 
ices :* «“ O=SUPPRESS LEADING ZEROS 
** 
4660 a on Stake HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
4661 :*$TYPOS OR $TYPOC 
4662 > *CALL: 
4663 3* MOV NUM , = (SP) : ;NUMBER TO BE TYPED 
ee TYPON :;CALL FOR TYPEOUT 
4666 : = $1YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
4668 ;* MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 
rs :* TYPOC -:CALL FOR TYPEOUT 
4671 016714 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ; sPICKUP THE MODE 
4672 016720 116637 000001 017137 MOVB 1(SP) ,SOF ILL :;LOAD ZERO FILL SWITCH 
4673 016726 112637 017141 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
4674 016732 062716 000002 ADD #2, (SP) : : ADJUST RETURN ADDRESS 
4675 016736 000406 BR $STYPON 
4676 016740 112737 000001 0171357 $TYPOC: MOVB #1,SOF ILL ::SET THE ZERO FILL meres 
016746 112737 O00006 017141 MOVB #6, SOMODE +1 ::SET FOR SIX‘6) DIGITS 
4678 016754 112737 000005 017136 S$TYPON: MOVB #5, $0CNT : SET THE ITER“TION COUNT 
4679 016762 010346 MOV R3,-(SP) 7 SAVE R35 
4680 016764 010446 MOV R4,-(SP) >: SAVE RS 
4681 016766 010546 MOV R5,-(SP) : SAVE R5 
4682 016770 113704 017141 MOVB SOMODE +1,R4 >:GET THE NUMBER OF DIGITS TO TYPE 
4683 016774 005404 NEG R4 
4684 016776 2704 000006 ADD #6 RS : SUBTRACT IT FOR MAX. ALLOWED 
4685 017002 110437 017140 MOVB R4, SOMODE -SAVE IT FOR USE 
017006 113704 017137 MOVB SOF ILL .RS *:GET THE ZERO FILL SWITCH 
4687 017012 016605 000012 MOV 12(SP) RS : PICKUP THE INPUT NUMBER 
017016 005003 CLR R3 :¢ CLEAR THE OUTPUT WORD 
017020 006105 1$: ROL R5 : :ROTATE MSB INTO ‘'C'' 
4690 017022 000404 BR 3$ ty DO MSB 
4691 017024 006105 ?$: ROL R5 :FORM THIS DIGIT 
4692 017026 006105 ROL R5 
4693 7030 006105 ROL 5 
46 017032 010503 MOV R5,R3 
4695 017034 006103 3$: ROL R3 :GET 'SB OF THIS DIGIT 
4696 017036 105337 017140 DECB SOMODE 2 TYPE THIS DIGIT? 
4697 017042 109016 BPL , ee IF NO 
4698 017044 042703 177770 BIC #177770,R3 :2GET Tt OF JUNK 
4699 017050 001002 BNE 4$ EST FOR 0 
4700 017052 005704 7ST Rs : SUPPRESS THIS Q? 
4701 017054 001403 BEQ 5$ BR IF YES 
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4702 017056 005204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0°S 
4703 017060 052703 000060 BIS #°0,R3 MAKE THIS DIGIT ASCII 
4704 017064 052703 900040 S$: BIS #’ “RB "=MAKE ASCII IF NOT ALREADY 
4705 017070 110337 017134 MOVB  _«R3, BS * SAVE FOR TYPING 

017074 104401 017134 TYPE 8$ *:GO TYPE THIS DIGIT 
4707 017100 105337 017136 7$: DECB  $0CNT =: COUNT BY 1 
4 017104 347 BGT 2$ >:BR IF MORE TO DO 
4 017106 002402 BLT 6$ >:BR IF DONE 
4710 017110 04 INC R4 ; ¢ INSURE LAST DIGIT ISN'T A BLANK 
4711 017112 000744 BR 2$ =GO DO THE LAST DIGIT 
4712 017114 012605 6$: MOV (SP) +,R5 * =RESTORE RS 
4713 017116 012604 MOV (SP) +.R4 ; :RESTORE R4 
4714 017120 012603 MOV (SP) +.R3 > :RESTORE R3 
4775 017122 01 000002 000004 MOV 2(SP),4(SP) *:SET THE STACK FOR RETURNING 
4716 017130 012616 MOV (SP) +. (SP) 
4717 017132 RT] 
4718 017134 000 8S: \BYTE 9 FORAGE FOR ASCII DIGIT 
4719 017135 000 "BYTE O > TERMINATOR FOR TYPE ROUTINE 
4720 017136 000 S$OCNT: .BYTE O *OCTAL DIGIT COUNTER 
4721 017137 000 S$OFILL: .BYTE 0 =:ZERO FILL SWITCH 
4722 017140 000000 $UMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
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TRAP DECODER 


.SBTTL TRAP DECODER 


ELL LLL tlh dalelelalehalalalelehsialalabaintelaielabsialaiaielabeheheielsielahelaheielsieleiphebieleialsieielalphele 


“ RTHIS ie WILL Ab THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 


: *AND 


TO INDEX 


*GO TO THAT ROU/IN 


STRAP: 


RO,~(SP) 
2(SP), RO 
(RO) 


(RO RO 


e it HROUGH THE TRAP 
ee THE DESIRED _ THEN USING THE ADDRESS CBTAINED IT WILL 


STRPAD (RO) RO 
RO 


TABLE 


7; SAVE_RO 
:2GET TRAP "eeu 


;BACKUP BY 
; GET RIGHT BYTE OF TRAP 


FOR THE S 


SEQ 0111 


TARTING ADDRESS 


;:POSITION FOR INDEXING 
TO TABLE 


; INDEX 


260 TO ROUTINE 


zz THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 
$TRAP2: MOV 


RTI 


(SP) ,~(SP) 


4(SP),2(SP) 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘‘TRAP’’ INSTRUCTION. 


$TRPAD: 


~ END 


$TYPDS 
$GTSWR 
$SCKSWR 


$SRDCHR 
SRDLIN 


<3 CALL = TYPDS 
7; CALL=GTSWR 
3; CALL=CKSWR 
7; CALL=RDCHR 
>; CALL=RDLIN 


;MAXMEM FOR APT = 17400 
;MAXMEM NON APT = 


17500 


TRAP+1 (104401) 


TRAP +5 (104405) 
TRAP +6 (104406) 
TRAP+7( 104407) 


TRAP+10(104410) 
TRAP+11(1046411) 


(ABS LOADER) 


;;MOVE THE PC DOWN 
:7MOVE THE PSW DOWN 
;;RESTORE THE PSW 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL? 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOF T-SWR SETTING 
TEST FOR CHANGE IN SOF T-SwWeR 


TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
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ABASE = 176500 AVECT1= 009300 DLVEC 001256 PICNT 014170 SwO4 = 000020 
ACDW1 = 000000 AVECT2= DSWR = 177570 RBUF 001262 SwOS = 000040 
ACDW2 = 000000 BITO = 000001 EMTVEC= 30 RCHO 007724 S = 000100 
AC = 000000 BITOO = 1 ERRCHK 006500 RCH1 007726 SWwO7 = 000200 
ACTCH 012364 B1T01 = 000002 ERRCNT 005622 RCH 007730 SwO8 = 000400 
sone 014156 BITO2 = 000004 ERROR = 000 RCH 007732 SwO9 = 001000 
= 000000 BITO3 = 000010 ERRORF 003304 RCSR 001260 Sw1 = 000002 
ADDW1 = 000000 BIT04 = 000020 ERRVEC= RCVRDO= 0002 SW10 = 002000 
ADDW10= 000000 BITOS = 000040 ERWRD 012366 RCVRIE= 0001 SW11 = 004000 
ADDW11= GOO000 BITO06 = 000100 EVENOD= 000004 RCVROS 007424 SWi2 = 010000 
ADDW12= 000000 B1T07 = 000200 EXITFL 3306 RCVR1S 007504 SW13 = 020000 
ADDW1 3= 000000 BITO8 = 0 FLAG 012612 RCVR2S 0075 SW14 = 040000 
ADDW14= 000000 BITO9 = 001000 FRERR = RCVR3S 007644 SW15 = 100000 
ADDW15= 000000 BIT1l = GTSWR = 06 RDATAO= SWw2 = 000004 
aoe = 000000 BIT10 = 002000 HOLDSC 012613 RDATA1= 000002 SW3 = 000010 
ADDW3 = 000000 BIT11 = HOWL ON= RDATA2= SW4 = 000020 
ADDW4 = 000000 BIT12 = 010000 HT = 000011 RDATA3= 000010 SWS = 000040 
ADDWS = 000000 BIT13 = 020000 I 1270 RDATA4= 000020 S = 000100 
ADDW6 = 000000 BIT14 = INTFLA 013616 RDATAS= 000040 SW7 == 000 
ADDW7 = 000000 BIT15 = 100000 INTRTA 0077 RDATA6= 000100 S = 0004 
ADDWS = 000000 BIT2 = 4 INTSRV 913610 RDATA7= 200 = 001 
ADDWI = 000000 BITS = 000010 IOTVEC= 00 RDC = 104410 TABE 007764 
ADEVCT= OQ00000 BIT4 = 000020 LF = RDLIN = 104411 TABL 1 013520 
ADEVM = 000000 BITS = 000040 LOOP 1732 = TABL2 014116 
ADRS =%000001 BIT6 = 1 MASK 014162 REC 005664 TABL3 014126 
AENV = 000000 BIT7 = 000200 MASK1 013502 REG = TABLS 014136 
AENVM = 000000 BIT8 = MASK2 013504 EGSAV 012606 TABL5S 014146 
AFATAL= 000000 BIT9 = 001000 MASK3 013506 RESVEC= 000010 TABL6 012416 
AMADR1= 000000 BPTVEC= 000014 MASK4 013510 RHLD 005770 TABL7 012426 
re 000000 BREAK = 1 013474 ROSRV O71 TABL8 012436 
AMADR35= 000000 BRK = MODTST 007000 RISRV 011000 TBITVE= 000014 
AMADR4= 000000 C 014164 MSK 013516 R2SRV 011120 TBUF 001266 
AMAMS1= 000000 CHCNT 007 MYTYPE 0141 R3SRV 011240 TCHO 
AMAMS2= 000000 CHCTR 012362 005624 RSSTAC 001332 TCH1 
AMAMS 3= 000000 CHMASK = 04 R6 =%000006 TCH2 007740 
AMAMS4= 000000 CHMSK 36 PARITY= 000002 7 =%000007 TCHS 007742 
= 000000 013476 PASS 003302 SEREND 011360 TCNT 
AMSGLG= 000000 CHOTAB O PERR = 01 ey = 77777 
AMSGTY= 000000 CH1TAB 011560 E 014166 SETCLR= TDATAO= 000001 
AMTYP1= QO0000 CH2TAB 011760 PIRQ@ = 177772 SFTREG 013512 TDATA1= 000002 
AMTYP2= 000000 CH3TAB 012160 PIRQVE= 00024 SIZE 012700 TDATA2= 
AMTYP3= 000000 CKSWR = PRIERR 007770 SRVEND 007724 DATA3= 000010 
AMTYP4= 000000 iR = PRO = STACK = 001100 TDATAS= 
APASS = 000000 CONSOL 013604 PR1 = 00 001334 TDATAS= 00004 
IOR= 000000 = 000015 PR2 = 000100 STATEN 012360 TDATA6= 000100 
APTCSU= 000040 CRLF = 00020 PR3 = 900140 STKLMT= 177774 TDATA7= 000200 
APTENV= 000001 CYCLE 013620 PR4 = 000200 SwR 001140 TEMP 774 
APTSIZ= 000200 TA 005 PRS = 000240 SWREG 00017 TIME = 000000 
000100 DDISP = 177570 PR6 - 0300 Sw0 = TIMER 012446 
AS = 000000 DISPLA 007142 PR7 = 000340 SwOoO = TIMSAV 012610 
ATESTN= Q00000 DISPRE 000174 PS = 177776 SwO1 = 000002 TKVEC = 000060 
AUNIT = 000000 DLADD 001254 PSw = 177776 SwO2 = 000004 TMP 012370 
AUSWR = 001031 DLADDR= 176500 PWRVEC= 000024 swOs = 000010 TMPO 012372 
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TMPOE § 012374 $APTHD 001000 $FSINC= 000210 SMX CNT 016298 STYPEC 014716 
TMP 1 012376 SATYC 015566 $F $LOO= 200 $NESTL= 177777 STYPEX 014764 
TMPIE 012400 $ATY1 015542 $ 160 KO = 000300 $TYPOC 016740 
TMP 2 012402 $ATY3 015550 $ = 000403 $NSK1 = 000210 STYPON 016754 
TMP 4 404 $ATYS 015560 $FSOR = 000320 $NSK2 = 000210 $TYPOS 016714 
TMP 12406 S$AUTOB 001134 $FSRTN= 000300 $NSK35 = 000110 IT 001206 
TMP5E 012410 $BASE 001250 $FSSEL= 000140 L 001154 SUNITM 001010 
TMP4 012414 $8D 001122 $F = 000130 $NWTST= 001220 
TMP6 013514 $BDDAT 001126 $F = 000120 SOCNT 017136 $VECT1 001244 
TMP7 013606 $BELL 001164 $FSYES= 402 $ 017140 $VECT2 001246 
TPVEC = 000064 $8 = 177777 $GD 001120 $OVER 016452 S$XTSTR 016222 
T 005626 SCHARC 014762 $GDDAT 1124 SPAS 001202 SYE 000001 
T = 000034 $CKSWR 014766 $GET42 014440 $PASTM 0010 $ = 000000 
TRIVEC= 000014 SCMTAG 001100 $GTSWR 015036 S$QUES 001170 $$BYTE= 000402 
= 000001 $C = 000000 D = 000000 $RDCHR 015250 $$FLAG= 000001 
TSTCON 013550 $SCNTLG 015515 $HIBTS 1000 $RDLIN 015370 $$F 000000 
002066 SCNTL'! 015506 SICNT 11 SRDSZ = 10 $$GET4= 000000 
TST10 003440 $C 001222 S$IFLEV= 177777 SRT 014462 $$LOC = 012576 
TST11 003566 SCRLF 001171 SINTAG 001135 $SAVLE= 177777 SSLOCN= 
TST12 003712 016704 $ISKO = $SCOPE 016210 S$SRETU= 
TST13 004222 $DEVCT 001204 1 = 900001 SSETUP= 0001 $SRINI= 000255 
TST14 004512 DE 001252 $ISK2 = 1 $SSKC = 000 $SRTN2= 0002 
TST15 005046 DOAGN 014460 SITEMB 001114 $STUP = 177777 $$TO = 
TST16 §=©—.005322 $DTBL 016674 $LF 001172 SSVLAD 016416 SOFILL 017137 
TST17 §=—.005772 ENDAD 014450 $LFLG 016005 $SVPC = 30 
TST 002264 SENDCT 014416 SLOCTA= 177777 $SWR = 167400 $10 002410 
TST 006502 $E 014467 $LP. 001106 SSWREG 001216 $ 
TST21 007 SENULL 0144 $LPERR 001110 $SSWRMK= $101 005224 
ba 007776 SENV 001214 $SLSTCN= 177777 $TAGLE= 177777 $102 005240 
TST 0024 SENVM 3 001215 $LSTIN= STAGNU= 000257 $103 005276 
TST4 002614 $E 014362 SLSTST= 177777 TEMP = $104 005270 
TSTS 002756 SEOPCT 014410 $LSTTA= 000000 $TESTN 001200 $105 005266 
TST6 003016 SERFLG 001103 SMADR1 001226 STIMES 001160 $106 005274 
TST7 003310 E 001115 $MADR2 001232 $TKB 001146 $107 005320 
TYPDS = 104405 SERRFL= 000000 SMADR3S 001236 $TKS 001144 $11 002440 
TYPE = 104401 SERROR 016010 SMADRS4 001242 SIN = $110 005320 
TYPOC = 104402 SERRPC 001116 SMAIL 001174 001152 $111 005360 
TYPON = 104404 SERRTB 001254 $MAMS1 001224 STPFLG 00115 $112 005364 
TYPOS = 10440 SERTTL 001112 SMAMS2 001230 TPS 00115 $115 005452 
VECTOR 014160 $ESCAP 001162 SMAMS3 001234 $TRAP_ 01714 $114 005460 
WAIT 012620 SETABL 001214 SMAMS4 001240 $TRAP2 017164 $115 005476 
WH I CHB= SETEND 001254 SMBADR 001002 $TRP 00001 $116 005514 
= 000020 $FATAL 001176 $MCALL= 000000 $TRPAD 017176 $117 00 
XMITIE= 000100 $FFLG 016006 SMFLG 016004 $TSKO = 00025 $12 002510 
TRD= 0002 $FILLC 001156 SMNEW 015531 $TSK1 = 000250 $120 005616 
XMITOS 007454 $FILLS 001155 $MSGAD 001270 $TSK2 = 00025 $121 00556 
XMIT1S 0075 $F = 000310 $MSGLG 001212 $TSK3 = 000253 $122 005614 
XMIT2S 007614 $ = 000401 SMSGTY 001174 $TSK4 = 000126 $123 005576 
XMITSS 007674 $FSBLA= 000170 S 015520 $TSTM 001 $124 005614 
XOSRV 010734 $FS$CAS= 000150 $MTYP1 001225 STSTNM 001102 $125 005612 
X1SRV 011054 $FSDEC= 000220 $MTYP2 901231 $TTYIN 015476 $126 005614 
X2SRV 011174 $F $GOO= 000400 SMTYP3 001255 $TYPDS 016470 $127 0056 
X35SRV 017374 $F$IF = 000110 SMTYP4 001241 $TYPE 014504 $15 002536 
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SEQ 0174 
$1 005652 $163 006646 $215 010524 $25 003300 $51 003754 
$131 005712 $164 6 $216 010534 $250 012640 $52 003750 
$1 005734 $165 006774 $217 010554 $251 SES Th $53 003752 
$1 005766 $166 007022 $22 003016 $25 012656 $54 003756 
$134 005760 $167 007054 $220 010614 $25 012654 $55 004024 
$135 005 766 $17 002700 $221 010614 $254 012666 $56 004 
$1 606030 $170 007112 $222 010632 $255 014360 $57 004102 
$137 $171 007202 $225 010644 $256 014360 $6 002334 
$14 002564 $172 007202 $224 010654 $26 003126 $60 004124 
$140 006052 $173 007244 $225 010726 $27 003166 $61 004172 
$141 006052 $174 007244 $226 010732 $3 002130 $62 004206 
$14 0061 34 $175 007422 $227 011046 $30 3222 $63 004220 
$14 006152 $176 010024 $2 003046 $31 003222 004404 
$144 006166 $177 010044 $230 011052 $32 003260 $65 004432 
$145 006240 $2 002066 $231 011166 $53 003256 50 
$146 006224 $20 002726 $232 011172 $34 003266 $67 004554 
$147 006222 $200 010132 $235 011306 $35 003346 $7 00 
$15 002614 $201 010170 $234 011312 $36 003350 $70 004724 
$150 006240 $202 010174 $235 012614 $37 03416 $71 004752 
$151 006240 $203 010232 $236 012616 $4 002154 $72 005032 
$15 006266 $2 010232 $257 912466 $40 003440 $73 005104 
$15 006 $205 010274 $24 003052 $41 003476 $74 005106 
$154 006312 $2 010316 $240 012570 $42 3500 $75 005116 
$155 006324 $207 010326 $241 012504 $43 003546 $76 
$156 006374 $21 002756 $242 012512 $44 003566 $77 32 
$157 006464 $210 010360 $243 012530 $45 003624 = 017222 
$16 002652 $211 010374 $244 012602 $46 003626 $x = 
$160 0064 76 $212 010450 $245 012676 $47 003674 
$161 006750 $215 010554 $246 012676 $5 002314 
$ 006574 $214 010510 $247 012644 $50 0037 
- ABS. 017222 000 CON RO ABS LCL OD 


ERRORS DETECTED: 0 
7:CVDLAB/1.7:CVDLAB. SEQ=SPMAC.SML,CVDLAB.P11 
RUN-TIME: 101 93. .7 SECOND 


: of SEC 
RUN-TIME RATIO: 312/195=1.5 
CORE USED: 335K (65 PAGES) 


